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