Private Declare Sub keybd_event Lib "user32" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
 
Private Const KEYEVENTF_KEYUP = &H2
 
' Virtual KeyCodes
Private Enum eVirtualKeyCode
 
  VK_WIN = &H5B     ' NEU! Windows-Taste
 
End Enum
 
Public Sub SendKeysEx(ByVal sText As String)
  Dim VK As eVirtualKeyCode
  Dim sChar As String
  Dim i As Integer
  Dim bShift As Boolean
 
  ' Jedes Zeichen einzeln senden
  For i = 1 To Len(sText)
    ' aktuelles Zeichen extrahieren
    sChar = Mid$(sText, i, 1)
 
    ' Sonderzeichen?
    bShift = False
    If sChar = "{" Then
 
 
      ' NEU! Windows-Taste
      If UCase$(Mid$(sText, i + 1, 3)) = "WIN" Then
        VK = VK_WIN
        i = i + 4
 
      End If
 
    ElseIf sChar = "%" Then
      ' ALT
      VK = VK_MENU
    End If
 
    ' niederdrücken und wieder loslassen
    keybd_event VK, 1, 0, 0
    keybd_event VK, 1, KEYEVENTF_KEYUP, 0
 
    ' Shift (Umsch)-Taste wieder loslassen
    If bShift Then
      keybd_event VK_SHIFT, 1, KEYEVENTF_KEYUP, 0
    End If
  Next i
End Sub
Private Sub Command1_Click()
SendKeysEx "%{WIN}"
 
End Sub