Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
no entiendo, pero creo que te refieres a esto... Acepta sólo lo que le indico...
Function textos(ByVal keyascii As Integer) As Integer
If InStr("abcdefghijklmnñopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.áéíóú", Chr(keyascii)) = 0 Then
textos = 0
Else
textos = keyascii
End If
If keyascii = 8 Then
textos = keyascii
End If
If keyascii = 13 Then
textos = keyascii
End If
End Function