ElseIf UCase(Mid(sText, i + 1, 2)) = "F3" Then
                    VK = eVirtualKeyCode.VK_F3
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 2)) = "F4" Then
                    VK = eVirtualKeyCode.VK_F4
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 2)) = "F5" Then
                    VK = eVirtualKeyCode.VK_F5
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 2)) = "F6" Then
                    VK = eVirtualKeyCode.VK_F6
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 2)) = "F7" Then
                    VK = eVirtualKeyCode.VK_F7
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 2)) = "F8" Then
                    VK = eVirtualKeyCode.VK_F8
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 2)) = "F9" Then
                    VK = eVirtualKeyCode.VK_F9
                    i = i + 3
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F10" Then
                    VK = eVirtualKeyCode.VK_F10
                    i = i + 4
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F11" Then
                    VK = eVirtualKeyCode.VK_F11
                    i = i + 4
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F12" Then
                    VK = eVirtualKeyCode.VK_F12
                    i = i + 4
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F13" Then
                    VK = eVirtualKeyCode.VK_F13
                    i = i + 4
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F14" Then
                    VK = eVirtualKeyCode.VK_F14
                    i = i + 4
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F15" Then
                    VK = eVirtualKeyCode.VK_F15
                    i = i + 4
                ElseIf UCase(Mid(sText, i + 1, 3)) = "F16" Then
                    VK = eVirtualKeyCode.VK_F16
                    i = i + 4
 
                    ' NEU! Windows-Taste
                ElseIf UCase(Mid(sText, i + 1, 3)) = "WIN" Then
                    VK = eVirtualKeyCode.VK_WIN
                    i = i + 4
 
                    ' NEU! Kontextmenü
                ElseIf UCase(Mid(sText, i + 1, 4)) = "APPS" Then
                    VK = eVirtualKeyCode.VK_APPS
                    i = i + 5
 
                    ' NEU! PrintScreen-Taste (DRUCK)
                ElseIf UCase(Mid(sText, i + 1, 5)) = "PRINT" Then
                    VK = eVirtualKeyCode.VK_SNAPSHOT
                    i = i + 6
                End If
 
            ElseIf sChar = "+" Then
                ' Umschalttaste
                VK = eVirtualKeyCode.VK_SHIFT
 
            ElseIf sChar = "%" Then
                ' ALT
                VK = eVirtualKeyCode.VK_MENU
 
            ElseIf sChar = "^" Then
                ' STRG
                VK = eVirtualKeyCode.VK_CONTROL
 
            Else
                ' Virtual KeyCode ermitteln...
                VK = VkKeyScan(Asc(sChar))
            End If
 
            nScan = MapVirtualKey(VK, 2)
            nExtended = 0
            If nScan = 0 Then nExtended = KEYEVENTF_EXTENDEDKEY
            nScan = MapVirtualKey(VK, 0)
 
            If VK <> eVirtualKeyCode.VK_SHIFT Then
                ' Großbuchstabe...?
                bShift = (VK And &H100)
                bCtrl = (VK And &H200)
                bAlt = (VK And &H400)
                VK = (VK And &HFF)
            End If
 
            ' niederdrücken und wieder loslassen
            If bShift Then keybd_event(eVirtualKeyCode.VK_SHIFT, 0, 0, 0)
            If bCtrl Then keybd_event(eVirtualKeyCode.VK_CONTROL, 0, 0, 0)
            If bAlt Then keybd_event(eVirtualKeyCode.VK_MENU, 0, 0, 0)
 
            keybd_event(VK, nScan, nExtended, 0)
            keybd_event(VK, nScan, KEYEVENTF_KEYUP Or nExtended, 0)
 
            ' Shift (Umsch)-Taste wieder loslassen
            If bShift Then keybd_event(eVirtualKeyCode.VK_SHIFT, 0, _
              KEYEVENTF_KEYUP, 0)
            If bCtrl Then keybd_event(eVirtualKeyCode.VK_CONTROL, 0, _
            KEYEVENTF_KEYUP, 0)
            If bAlt Then keybd_event(eVirtualKeyCode.VK_MENU, 0, _
            KEYEVENTF_KEYUP, 0)
        Next i
    End Sub
 
 
    Dim WithEvents t As New Timers.Timer
 
    Dim txt As String = "Hallo Max Mustermann"
    Private Sub t_Elapsed(ByVal sender As Object, ByVal e As  _
      System.Timers.ElapsedEventArgs) Handles t.Elapsed
        SendKeysEx(txt)
        t.Stop()
    End Sub
 
    Public Function ReadLineDefault(ByVal defaulttext As String) As String
        txt = defaulttext
        t.Start()
        Return Console.ReadLine()
    End Function
 
 
    Sub Main()
        ReadLineDefault("Ich bin der Standardtext")
    End Sub
 
End Module

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008