MSDOS ansprechen? UMLAUTPROBLEM

Sub msdos()
Dim Exe
Exe = Shell("C:\WINDOWS\COMMAND.COM", 1)
SendKeys "äöü", True
End Sub

MSDOS-Eingabeauforderung zeigt dann:
C:\Eigene Dateien>\
\
\

Sub msdos2()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\TEST.bat", True)
a.WriteLine ("äöü")
Dim Exe
Exe = Shell("D:\TEST.bat", 1)
End Sub

MSDOS-Eingabeauforderung zeigt dann irgendwelche Symbole?!, aber kein d:\äöü