Como Contralar que un textbox de Visual basic que se pueda ingresarle solo numeros

[minoralberto]

' digite el siguiente codigo en el evento 'Keypress' del text box

Const Number$ = "0123456789." ' solamente permite estos caracteres

If KeyAscii <> 8 Then
If InStr(Number$, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End If

OR:

' fuerza solo numeros en el text box
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0