<code>Private Declare Sub keybd_event Lib "user32" _
  (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Const KEYEVENTF_KEYUP = &H2
Const VK_MENU = &H12
Const VK_ADD = &H6B
 
Public Sub Zeichensatz_Wechseln()
  <font color=green>' ALT-Taste drücken</font>
  keybd_event VK_MENU, 0, 0, 0 ''ALT-Taste
 
  <font color=green>' Plus (Add) drücken</font>
  keybd_event VK_ADD, 0, 0, 0
 
  <font color=green>' Plus (Add) wieder loslassen</font>
  keybd_event VK_ADD, 0, KEYEVENTF_KEYUP, 0
 
  <font color=green>' ALT loslassen</font>
  keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub</code>