'in einem Modul:
Public Function RunBat(CommandLine As String, Optional ByVal WindowStyle As _
  VbAppWinStyle = vbHide) As Long
   RunBat = Shell(Environ$("COMSPEC") & " /c " & CommandLine, WindowStyle)
End Function
 
'in einer Form:
Private Sub cmdDos_Click()
   RunBat "debug", vbNormalFocus
End Sub

>> <<