Данное событие возникает, когда пользователь нажимает какую-нибудь клавишу. Это событие не будет генерироваться при нажатии функциональных или специальных клавиш. Многие элементы управления позволяют обрабатывать это событие.

Нашем код который просто запрещает вводить что либо кроме цифр в первое поле.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 47) Or (KeyAscii > 57) Then
MsgBox "Enter numeric pleas, елы палы"
KeyAscii = 0
End If
End Sub

А вот и результат, не числовое значение просто не введется.

И именно в этом поле.