Sub Main
    
    Dim objWMIService, objProcess, colProcess As Object
    Dim strProcess, strComputer
    Dim iDXDistRunning
 
    strProcess = "notepad.exe"            'Prozessname auf den gewartet werden soll
    strComputer = "."                    ' Wird für die lokale WMI-Abfrage benötigt
 
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
    iDXDistRunning = 0            ' Initialisiert die Variable mit 0 (Prozess nicht gefunden)
 

    While iDXDistRunning < 1
        
        ' WMI-Abfrage - ist strProcess als laufender Prozess vorhanden?
        Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process where Name='"&strProcess &"'")
        
        ' Prüfen, ob der Prozess läuft
        If colProcess.count Then
            MsgBox "Prozess gefunden!"
            iDXDistRunning = 1                ' Prozess gefunden - setze Variable auf 1
        End If
 
        ' wenn der Prozess nicht gefunden wurde, 1sek. warten
        If iDXDistRunning < 1 Then
            Wait 1
        End If
    Wend    
    
End Sub
 

If oProcess.Count Then
  CheckProcess = True
Else
  CheckProcess = False
End If