C'è il comando che si chiama onKeyPress

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
Else
KeyAscii = 0
End If
End Sub
E così quel campo diventa sicuramente numerico