Validar una caja de texto

[fidogio]

Hola amigos,
Necesito validar que en una caja de texto si almaceno datos numericos que el usuario no pueda introducir texto..
gracias

[emca]

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 ;)