Dim TaskID As Long
  Dim sFilename As String
  Dim winDir As String
 
  winDir = Environ("WinDir")  
  sFilename = "DeineTextdatei.txt"
 
  TaskID = Shell(winDir & "
otepad.exe " & sFilename, vbNormalFocus)
  AppActivate TaskID, False
  SendKeys "^p", True