Sub Befehl_ausfuehren_mit_Ausgabe_in_MsgBox()
   Dim objShell As Object, objExec As Object
   Dim sQuelle As String, sZiel As String, sParameter As String, sResult As _
     String
   sQuelle = Chr(34) & "D:\TEMP\Org" & Chr(34)
   sZiel = Chr(34) & "D:\TEMP\loeschen" & Chr(34)
   sParameter = Chr(34) & " /E" & Chr(34)
 
   Set objShell = CreateObject("WScript.Shell")
   Set objExec = objShell.Exec("robocopy " & sQuelle & " " & sZiel & " " & _
     sParameter)
   sResult = objExec.StdOut.ReadAll
   MsgBox sResult
   Set objShell = Nothing
   Set objExec = Nothing
End Sub