'Zum Pausieren des Programmablaufs
Private Declare Function WaitForSingleObject Lib "kernel32.dll" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
 
'Zum ermitteln der kurzen Dateinamen
Private Declare Function GetShortPathName Lib "kernel32.dll" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
 
'zunächst die benötigten API-Deklarationen
Private Declare Function CloseHandle Lib "kernel32.dll" _
  (ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess _
  As Long, _
  ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
 
Private Const INFINITE = &HFFFF
Private Const SYNCHRONIZE = &H100000
 
'Warten bis Anwendung beendet
Public Sub AppStartAndWait(ByVal sFile As String, _
  ByVal wStyle As VbAppWinStyle)
 
  'Parameterbeschreibung
  'sFile:  Anwendung, die gestartet werden soll
  'wStyle: Darstellungsart des Anwendungsfensters
 
  Dim lRetVal As Long
  Dim lHandle As Long
  Dim lRet As Long
 
On Error GoTo Wait_Fehler
 
1:  lRetVal = Shell(sFile, wStyle)
2:  If lRetVal <> 0 Then
3:    lHandle = OpenProcess(SYNCHRONIZE, 0, lRetVal)
4:    If lHandle <> 0 Then
5:      lRet = WaitForSingleObject(lHandle, INFINITE)
6:      CloseHandle (lHandle)
    End If
  End If
 
End If
 
Exit Sub
 
Wait_Fehler:
 
Select Case Err.Number
 
Case Else:  Call Log_schreiben("Fehler", Err.Number, " Fehler in Sub Wait for" & _
  "App in Zeile: " & Erl & Space(1) & Err.Description)
            Exit Sub
End Select
 
End Sub

Hier muss ich mir noch etwas schlaues f?r suchen