Private Sub Command1_Click()
    ' Starte Notepad
    Shell "notepad.exe", 1
    ' Schreibe erste Zeile
    SendKeys "Das ist ein kleiner Text", True
    ' Zeilenumbruch
    SendKeys "{ENTER}", True
    ' nächste Zeile
    SendKeys "und noch eine Zeile...", True
    ' Menü Alt->Datei->Speichern
    SendKeys "%DS", True
    ' Eingabe für Speichern-Dialog
    SendKeys "Test.txt", True
    ' Speichern im Dialog
    SendKeys "%S", True
    ' Alt+F4 zum Beenden
    SendKeys "%{F4}", True
End Sub