Código:
Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
Exit Sub
Else
MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
"ni comas, ni cualquier caracter especial!!"
End If
End Sub
pille este codigo para validar que solo ingrese numero el problema que al mandar el mensaje la letra sigue en el txt y no se borra
probe poniendo al final del msgbox text1="" pero no se borra