Public Sub AppStartAndWait(ByVal sFile As String, _
  ByVal wStyle As VbAppWinStyle)
 
  Dim lRetVal As Long
  Dim lHandle As Long
  Dim lRet As Long
 
  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
End Sub

befehl4 = "del " & destination & "\*.* /F /S /Q"
AppStartAndWait befehl4, vbHide