En el evento KeyPress del TextBox pone este codigo:
Código:
Select Case KeyAscii
Case 13
KeyAscii = 0 ' Para que no "pite"
Case 8, 48 To 57
'Case 8, Asc("0") To Asc("9")
' Sólo admitir teclas consideradas numéricas
' El 8 es la tecla Backspace (borrar hacia atrás)
Case Else
' No es una tecla numérica, no admitirla
KeyAscii = 0
Beep
End Select
Saludos
