hola, yo vi este codigo y funciona, quiza es simple pero funciona y hace lo que pides
Coloca este codigo en un control text:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If ValorNumerico(KeyAscii) = False Then KeyAscii = 0
End Sub
y este en un modulo:
'Debe recibir el valor ASCII de la tecla pulsada
Function ValorNumerico(CodigoTecla As Integer) As Boolean
If CodigoTecla = 8 Then 'backspace
ValorNumerico = True
Exit Function
End If
If CodigoTecla > 47 And CodigoTecla < 58 Then
ValorNumerico = True
Else
ValorNumerico = False
End If
End Function
si funciona, ya lo probé
por cierto lo baje de aqui:
<a href='ir.asp?http://www.lawebdelprogramador.com' target='_blank'>http://www.lawebdelprogramador.com...</a>
see ya ;)