Public Taste As Boolan

Private Sub Form_KeyPress(KeyAscii As Integer)
 
If Taste = True then
 Select Case KeyAscii
  Case 27
   'Führe A aus
  Case 49
   'Führe B aus
  Case 50
   'Führe C aus
  Case Else
   KeyAscii = 0
 End Select
End If
 
End Sub