'...
      'hier mein Code:
      'Numerisch???
      If IsNumeric(sChar) Then
        ' Virtual KeyCode ermitteln...
        VK = Asc(UCase$(sChar))
        GoTo weiter
      End If
      'bis hierhin
 
     ' Großbuchstabe...?
      bShift = (UCase$(sChar) = sChar)
      If bShift Then
        ' ... dann zusätzlich Shift (Umsch)-Taste "drücken"
        keybd_event VK_SHIFT, 1, 0, 0
      End If
 
      ' Virtual KeyCode ermitteln...
      VK = Asc(UCase$(sChar))
    End If
 
 weiter:   
    ' 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

Nsider