Con esto solo te permite poner los numeros en el textbox llamado Text1
--------------------------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
--------------------------------------------------------------------------
Si queres que perimita algun caracter como un punto o lo que quieras solo agregalo a donde dice InfStr"0123456789." listo hay solo te acepta numeros y un punto.
espero que te sirva.