'API-Deklarationen für SUB AppStartAndWait
Private Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" _
  (ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long
 
Private Declare Function WaitForSingleObject Lib _
  "kernel32" (ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
 
 
Public Sub AppStartAndWait(ByVal sfile As String, _
  ByVal wStyle As VbAppWinStyle)
  'Parameterbeschreibung
  'sFile:  Anwendung, die gestartet werden soll
  'wStyle: Darstellungsart des Anwendungsfensters
On Error GoTo fehler
  Dim lRetVal As Long
  Dim lHandle As Long
  Dim lRet As Long
    Debug.Print sfile
  lRetVal = Shell(sfile, wStyle)
 
  If lRetVal <> 0 Then
    lHandle = OpenProcess(SYNCHRONIZE, 0, lRetVal)
    If lHandle <> 0 Then
      lRet = WaitForSingleObject(lHandle, INFINITE)
      CloseHandle (lHandle)
    End If
  End If
Exit Sub