Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As _
  Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef lpExecInfo As _
SHELLEXECUTEINFOA) As Long
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
 
 
    Dim pSI As SHELLEXECUTEINFOA
    With pSI
        .fMask = SEE_MASK_NOCLOSEPROCESS
        .hwnd = hwnd
        .nShow = vbNormalFocus
        .lpDirectory = "C:\Windows"
        .lpFile = "C:\Windows\Notepad.exe"
 
        .cbSize = LenB(pSI)
    End With
 
    If ShellExecuteEx(pSI) <> 0 Then
        Call WaitForSingleObject(pSI.hProcess, 30000)
    Else
        MsgBox "Da hat was nicht geklappt.", vbExclamation, "Fehler"
    End If