Visual Basic - Ingresar unicamente caracteres numericos

Hola gente, como va? n_n

quiciera saber como hago para restringir un textbox para q solo se le puedan ingresar numeros.

asi como para el telefono, numero de documento, numero de puerta, etc.

muchas gracias n_n
saludos

Seria asi amigo:

en el evento keypress (Keyascii as integer)

select case keyascii
case 48 to 57
case 8
case 32
case else
keyascii = 0
end select

suponiendo que es text8, en el evento keypress aplicas esto y listo

Private Sub Text8_KeyPress(KeyAscii As Integer)



'Valor de las letras en el código Ascii=
'32=espacio, 8=<--,"0"=48 entre "9"=57, 13=enter

letra = Chr(KeyAscii)
letra_mayus = UCase(letra)
'Asc(str):convierte una letra en su valor en el código Ascii.
b = Asc(letra_mayus)

If Not ((b >= 48 And b <= 57) Or b = 8 Or b = 13) Then
KeyAscii = 0

End If

End Sub

No se necesita tanta parafernalia:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

Nota: El código ascii 8 corresponde a la tecla de retroceso.

Si a la linea de Marchand le añadimos este pequeño detalle, ya es que te cagas, porque tambien entra el guion, para numeros negativos y separador para telefonos, etc

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 And KeyAscii <> 45 Then KeyAscii = 0

Todo esto está bien marchand y Diego, pero una de las cosas que se deben tener en cuenta en programación es la legibilidad del código. Yo personalmente prefiero la opción de select case, porque se entiende mejor y porque es más versatil ya que podemos ampliar o cambiar facilmente con otras situaciones y caracteres.