Private Sub Text1_KeyPress(KeyAscii As Integer)
   Static n As Integer
   n = KeyAscii
   KeyAscii = 0
   TuewasFunction n
End Sub
 
Private Sub TueWasFunction(Byval KeyAscii As Integer)
   Msgbox "Da hat jemand " & Chr(KeyAscii) & " gedrückt.",, "ups ... "
End Sub