ingresar solo numeros

[ReViJa]

Maneras de filtrar hay muchas asi que dejo una pareccida a la que ha comentado Korku

Código:

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