Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub test1()
 
  Dim hTask As Long
  ' CMD Mit Fokus starten 
  hTask = Shell("c:winntsystem32cmd.exe", vbNormalFocus)
  '  Warten bis CMD gestartet wurde 
  Call Sleep(10)
  ' Key Senden und warten bis er verarbeitet wurde
  Call SendKeys("cd.." + "{enter}", True)
  Call SendKeys("cd.." + "{enter}" + "cd hallo", True)
end sub