currupipi999 respondió:
Puedes utilizar la siguiente función, y colocarla por ejemplo en el evento keydown del textbox. Function SoloNumeros(ByVal Keyascii As Short) As Integer If InStr("1234567890", Chr(Keyascii)) = 0 Then SoloNumeros = 0 Else SoloNumeros = Keyascii End If...