Public Sub ExecuteAndWait( _
    cmdline As String, _
    Optional ByVal waitMs As Long = INFINITE _
  )
 
  Dim NameOfProc    As PROCESS_INFORMATION
  Dim NameStart     As STARTUPINFO
  Dim x             As Long
 
  On Error Resume Next
 
  NameStart.cb = Len(NameStart)
 
  x = CreateProcessByNum( _
          cmdline, _
          vbNullString, _
          0, 0, _
          True, _
          NORMAL_PRIORITY_CLASS, _
          ByVal 0&, _
          vbNullString, _
          NameStart, _
          NameOfProc _
        )
 
  Debug.Assert Err = 0
 
  If waitMs <= 0 Then
    waitMs = INFINITE
  End If
  x = WaitForSingleObject(NameOfProc.hProcess, waitMs)
 
  x = CloseHandle(NameOfProc.hProcess)
  Debug.Assert Err = 0
 
End Sub

Gruß
Dirk

--
?Get it right the first time