Leer un fichero de texto

[ACHAVARRIA]

TE RECOMIENDO LO SIGUIENTE:

'Para abrir el archivo

CmdDlg.InitDir = App.Path
CmdDlg.DialogTitle = "Paso #1 - Abrir el Archivo de Parametros"
CmdDlg.FileName = App.Path & "\PARAM.TXT"
CmdDlg.Filter = "Archivo de Texto (*.TXT)|*.TXT"
CmdDlg.DefaultExt = ".TXT"
CmdDlg.ShowOpen
direccion = CmdDlg.FileName

'Para Abrirlo del todo

ARCHIV01 = FreeFile
Open (App.Path & direccion) For Input As #1

'Para leer la linea

c = 0
Do While Not EOF(1)
Line Input #1, LINEA ' Linea es la línea del archivo
'para recorrerlo
While c <= len(LINEA)
c = c + 1
Wend
Loop