Public Sub PruefExec()
Dim objWMIService As Object, colItems As Object, strProcesses As String, strComputer As String, anz As Integer, objItem As Object
 
strComputer = "."
anz = 0
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process", , 48)
strProcesses = ""
For Each objItem In colItems
    If strProcesses <> "" Then
        'strProcesses = strProcesses & " + " & objItem.Name
    Else
        If objItem.Name = "regio8.exe" Then
        anz = anz + 1
        'strProcesses = objItem.Name
        End If
    End If
Next
If anz = 2 Then
    'MsgBox "Muss beendet werden"
    beenden
End If
End Sub
=====================================
Public Sub beenden()
    rgApplication.Quit
End Sub