Option Explicit
 
' Required API-Declarations
Public Declare Sub keybd_event Lib "User32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)                                      ' 
    ' Synthesize Keystroke
 
Private Declare Function VkKeyScan Lib "User32" _
    Alias "VkKeyScanA" ( _
    ByVal cChar As Byte) As Integer                                 ' Translate 
    ' Character into Virtual-Key Code and SHIFT State
 
Private Declare Function MapVirtualKey Lib "User32" _
    Alias "MapVirtualKeyA" ( _
    ByVal wCode As Long, _
    ByVal wMapType As Long) As Long                                 ' Translate 
    ' Virtual-Key Code into Scan Code or Character Value
 
Public Const KEYEVENTF_KEYUP = &H2                                  ' Keystroke 
' Flag for KeyUp
Private Const KEYEVENTF_EXTENDEDKEY = &H1                           ' Keystroke 
' Flag for Extended Key
 
' Virtual KeyCodes
Private Enum eVirtualKeyCode
    VK_BAK = &H8
    VK_TAB = &H9
    VK_CLEAR = &HC
    VK_RETURN = &HD
    VK_SHIFT = &H10
    VK_CONTROL = &H11
    VK_MENU = &H12
    VK_PAUSE = &H13
    VK_CAPITAL = &H14
    VK_ESCAPE = &H1B
    VK_PRIOR = &H21
    VK_NEXT = &H22
    VK_END = &H23
    VK_HOME = &H24
    VK_LEFT = &H25
    VK_UP = &H26
    VK_RIGHT = &H27
    VK_DOWN = &H28
    VK_SELECT = &H29
    VK_SNAPSHOT = &H2C                                              ' Print Key
    VK_INSERT = &H2D
    VK_DELETE = &H2E
    VK_HELP = &H2F
    VK_F1 = &H70
    VK_F2 = &H71
    VK_F3 = &H72
    VK_F4 = &H73
    VK_F5 = &H74
    VK_F6 = &H75
    VK_F7 = &H76
    VK_F8 = &H77
    VK_F9 = &H78
    VK_F10 = &H79
    VK_F11 = &H7A
    VK_F12 = &H7B
    VK_F13 = &H7C
    VK_F14 = &H7D
    VK_F15 = &H7E
    VK_F16 = &H7F
    VK_NUMLOCK = &H90
    VK_SCROLL = &H91
    VK_WIN = &H5B                                                   ' Windows 
    ' Key
    VK_APPS = &H5D                                                  ' Key for 
    ' Context Menu1
End Enum
 
Dim bShift As Boolean, bAlt As Boolean, bCtrl As Boolean            ' Flags for 
' Shift, Alt, Ctrl
Dim bShiftd As Boolean, bAltd As Boolean, bCtrld As Boolean         ' Flags for 
' KEYDOWN State of Control Keys
Dim bRound As Boolean, bCurly As Boolean                            ' Flags for 
' Brackets
Dim SendKeyDebug As Boolean                                         ' Flag for 
' Debugging

Das muß doch irgendwie gehen!