Hola Bopo.
Aquí tienes un ejemplo que mostraría uno a uno todos los registros de un archivo.
Private Sub Leer()
On Error Goto Err_Lectura
Dim intCanal as integer
intCanal = FreeFile
Open "C:\Ruta\Archivo.xxx" For Input As intCanal
Dim strRcd as String, intCta as integer
Do Until EOF(intCanal)
intCta = intCta + 1
Line Input #intCanal, strRcd
MsgBox strRcd,vbInformation,"Registro " & intcta
Loop
Exit_Lectura:
On Local Error Resume Next
Close #intCanal
Exit Sub
Err_Lectura:
MsgBox Err.Description
Resume Exit_Lectura
End Sub
Suerte.
y como hago que me lea una linea definida 
ya descubrri como:
a
Line Input #intCanal, strRcd
le agregue
Line Input #intCanal, strRcd1
Line Input #intCanal, strRcd2
Line Input #intCanal, strRcd
Asi me lee al tercera, pero habra alguna forma que poner el numerod e al linea?
creo q si pones LINE Nº osea
Line 3 Input #intCanal, strRcd
creo si me equivoco coriganme ahora mi pregunta...
yo quiero hacer esto pero necesito en un text box y necesito saber como pongo a travez de codigo un "enter" probe con vbclrf pero me salen 2 barras a lo mejor sale en un label o algo asi xq lo copio y me sale un enter XD
hay alguna solución a eso
Salu2!
Mostrar Mensajes
no tengo el codigo ahora pero consiste en q el mas "liviano" va subiendo hasta q encuentre uno menor a el 
