[VB] Identificare il contenuto di una textbox

[JamesD]

Anche così:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii > 47 And KeyAscii < 58 Then
    KeyAscii = 0
    MsgBox "errore"
    Text1.SetFocus
End If

End Sub