Geht das auch einfacher?

Ich habe folgenden Code, um mich im SAP anzumelden und dann in das Programm SQ01 zu wechseln:

Option Explicit

Sub SAP()
Dim SAPLogon

SAPLogon = Shell("C:\Programme\Sappc46d\sapgui\saplogon.exe", 1)
AppActivate SAPLogon
SendKeys "{tab}"
SendKeys "~"
Application.Wait TimeValue(Now) + TimeValue("00:00:11")
SendKeys "Fuhrmann"
SendKeys "{tab}"
SendKeys "Passwort"
SendKeys "~"
Application.Wait TimeValue(Now) + TimeValue("00:00:11")
SendKeys "^{tab}"
SendKeys "sq01"
SendKeys "~"

End Sub

Ich denke das ist etwas unglücklich mit der Wait - Funktion und vielleicht geht das auch besser als mit der senkkeys - anweisung?!

Kann mir da vielleicht jemand weiter helfen?

Gruß
F.