Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
 
 
 
 
Private Function CompKey(KCode As Long, KText As String) As Boolean
Dim Result As Integer
Result = GetAsyncKeyState(KCode)
If Result = -32767 Then
Text1.Text = KText
Text1.SelStart = Len(Text1.Text)
CompKey = True
Else
CompKey = False
End If
If Text1 = "NUM K" And Timer4.Enabled = False Then Timer1.Enabled = True: Text1 _
  = "": Timer2.Enabled = True: Text1 = "": Timer3.Enabled = True: Text1 = ""
If Text1 = "NUM K" And Timer4.Enabled = True Then Timer1.Enabled = False: Text1 _
= "": Timer2.Enabled = False: Text1 = "": Timer3.Enabled = False: Text1 = ""
 
End Function
 
 
 
Private Sub Timer4_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
End Sub