Como Hacer que un textbox solo me reciba numeros

En tu textbox en el procedimiento KEYPRESS pon el siguiente código.

Private Sub Text1_KeyPress(KeyAscii As Integer)
a = KeyAscii
If a < 48 Or a > 57 Then
KeyAscii = 0
End If
End Sub

eso es todo.

Espero que te sea útil