RE:Error al abrir txt raro
Seguramente tendrás problemas con la tabla de códigos que se utiliza para guardar el archivo TXT, fijate de ésta forma que ocurre:
Dim Lineas As Variant, i As Integer
Lineas = Split(FileToString(App.Path & "\MiArchivo.txt"), vbCrLf)
For i = LBound(Lineas) To UBound(Lineas)
Debug.Print Lineas(i)
Next i
Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
End Function