Visual Basic - Archivos Texto

Tengo que leer un archivo texto algo facil pero
ya tiempos no lo hacia asi que creo que se me olvido algo
yo se que en las hayudas aparese solo que aqui en mi trabajo
no las tengo tengo las hayudas en la casa y ocupo hacerlo hoy
asi que si algien es tan amable solo de recordarme
un poco se lo agradeseria mucho Grasias por su atencion

El codigo el el siguiente

Dialog.Filter = "*.Txt ,*.Bat"
Dialog.ShowOpen
DirArch = Dialog.FileName


Open DirArch For Output As #1


Do Until EOF(1)

line input #1 ' Aqui es donde no recuerdo muy bien


Loop

Dim Archivo as Integer
Dim Cadena as String
Dialog.Filter = "*.Txt ,*.Bat"
Dialog.ShowOpen
If Dialog.FileName = "" Then Exit Sub
DirArch = Dialog.FileName
Archivo = FreeFile

Open DirArch For Output As #Archivo
Do While Not EOF(Archivo)
Line input #Archivo, Cadena
'Cada que avance una linea en la variable Cadena se pega el valor
'Usalo como lo necesites.
Loop
Close #Archivo

Se me olvidaba el Filter funciona asi:

Dialog.Filter = "Archivos de Texto (*.txt)|*.txt|Archivos de lotes (*.bat)|*.bat"

Los Pipe juegan un papel importante checa la ayuda.