visual basic codigos par un tex

[Avellaneda]

Hola, en el evento KeyPress del TextBox:

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub