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