Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long
'*
'*********************************
' Konstanten
'*********************************
'*
Private Const SW_SHOWNORMAL = 1
Private Const SE_ERR_FNF = 2
Private Const SE_ERR_NOASSOC = 31
Private Const SE_ERR_PNF = 3
 
Private Sub Form_Load()
Dim resReturn As Double
 
    resReturn = ShellExecute(Me.hwnd, "open", "notepad.exe", vbNullString, _
      vbNullString, SW_SHOWNORMAL)
 
    Select Case resReturn
        Case SE_ERR_NOASSOC
            MsgBox "Datei ist nicht asoziiert", vbInformation, "Fehler"
            Exit Sub
        Case SE_ERR_PNF
            MsgBox "Pfad wurde nicht gefunden", vbInformation, "Fehler"
            Exit Sub
        Case SE_ERR_FNF
            MsgBox "Datei wurde nicht gefunden", vbInformation, "Fehler"
            Exit Sub
    End Select
 
    SendKeys "Dies wird eine Test Datei!", True
    SendKeys "{ENTER}", True
    SendKeys "ENDE *********************", True
    SendKeys "%{D}", True
    SendKeys "{DOWN 4}", True
    SendKeys "{ENTER}", True
End Sub