Private Sub Caracteres_Click()
Dim c, j As Long
Dim letra As Integer
Dim TEXTO As String
i = 1 ' Libera archivo
h = 2 ' lo mismo para el nuevo archivo
j = 3
filename = "c:\archivo.txt"
Open filename For Input As #i 'Abre achivo y lo lee
j = 0
TEXTO = ""
'*** While para leer archivo***
Do While Not EOF(i) 'Lee el archivo mientras no sea fin de archivo
Line Input #1, cadena 'Lee la cadena
c = 0
For c = 1 To Len(cadena)
letra = Asc(Mid(cadena, c, 1))
'Mayusculas 64-90 , Minusculas 97-122, Numeros 48-57 , tabulacion 9 , Espacio 32, Dos Puntos 58, Slash 47 ,
'If Not ((letra >= 97 And letra <= 122) Or (letra >= 65 And letra <= 90) Or (letra >= 48 And letra <= 57) _
' Or letra = 46 Or letra = 124 Or letra = 47 Or letra = 32 Or letra = 58 Or letra = 9 Or letra = 45) Then
If Not ((letra >= 97 And letra <= 122) Or (letra >= 65 And letra <= 90) Or (letra >= 48 And letra <= 57) _
Or letra = 46 Or letra = 124 Or letra = 32 Or letra = 58 Or letra = 9 Or letra = 45) Then
Fn = "c:\Errores.txt"
Open Fn For Append As h
Print #h, "Este es el codigo numerico del caracter " & letra & " Esta es la Columna " & Format(c, "######") & " Este es el caracter " & Mid(cadena, c, 1) & " Numero de Linea " & Format(j, "#######")
Close h
End If
Next c
j = j + 1
Loop
'*** Termino de While para leer archivo***
Close i
MsgBox "Proceso Terminado", vbInformation, "AG Buscador de CE©"
End If
End Sub