Visual Basic - leer TXT

Necesito leer un archivo TXT linea x linea , como lo hago?
la idea es no mostrarlo sino abrirlo con OPEN y que me muestre las lineas totales y en base a eso pedirle que me lea la linea 10 por ejemplo el archivo txt pesa como 100 mb

espero me ayuden

OPEN "C:\ARCHIVO.TXT" FOR INPUT AS#1
DO
IF EOF(1) THEN EXIT DO
LINE INPUT #1,A
LIST1.ADDITEM A
LOOP

Con esto copias todo el contenido del TXT en un LISTBOX de esta manera puedes trabajar con los datos que estarán en el listbox

saludos

Gracias Jose
el problema es el tamaño del archivo son 100 mb imaginate cuantas lineas habra y cargarlos en list es eterno

entonces mi idea era leer linea x linea hasta que encuentre en una linea una determinada palabra , haga un proceso para guardar lo acumulado y que despues siga apartir de la proxima linea , y no leer todo el archivo de nuevo , me explico?
si se te ocurre algo agradeceria tu ayuda

Te arme esta funcion:

Private Function LeerLinea(Archivo As String, Numero_De_Linea As Integer) As String
Dim nFic
Dim Linea

nFic = FreeFile
Open Archivo For Input As nFic
Do
DoEvents
If EOF(nFic) = True Then Exit Do
Num = Num + 1
If Num = Numero_De_Linea Then
Line Input #nFic, Linea
Exit Do
End If
Line Input #nFic, Linea
Loop

If Num = Numero_De_Linea Then
LeerLinea = Linea
End If

End Function


'Si la el numero de linea no existe devuelve una cadena vacia

El unico problema que existe es que cuanto mayor sea el numero de linea mas va a tardar en encontrarla.

Matias