Visual Basic - Bloquear caracteres no numericos

Hola.
Alguien sabe la forma de bloquear el ingreso de caracteres no numericos en un textbox...
Segun entiendo abria que hacer un if y preguntar por el rango de valores del codigo ascii que representan los numeros del 0 al 9 o no?

Hay otra forma... o si es esa la forma alguien tiene el codigo...

Gracias.

Buenas!... intenta con:

If Not KeyAscii = 8 And Not KeyAscii = 13 Then If InStr(1, "0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0

se me olvidaba....esto en el evento...Keypress....

jeje...bueno..ojala te sirva...
saludos de Chile

Hola Renzy, Hay muchas maneras de bloquear la entrada de caracteres no numericos. Una de las formas es en el evento "_KeyPress" del texbox.

En el siguiente codigo indicamos, cuando se introduce un caracter, que si el codigo asccii va desde el 48 hasta el 57 (del 0 al 9), no muestra nada en el texbox.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub

'Si ponemos esto, nos permite carcateres numericos, la tecla de borrado(8) y enter(13).

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8,13,48 To 57
Case Else
KeyAscii = 0
End Select
End Sub

Espero que te sirva de ayuda. Mucha Suerte.

Un Saludo ;-)