Dim hProcess As Long
    Dim ProcessId As Long
    Dim exitCode As Long
 
    ProcessId = Shell(Befehl, 1)
    hProcess = OpenProcess(&H400, False, ProcessId)
    Do
        Call GetExitCodeProcess(hProcess, exitCode)
        DoEvents
    Loop While exitCode = &H103&
    MsgBox exitCode
    Call CloseHandle(hProcess)