Foros del web, para los que viven de bits

Sub leer_determinada_linea_de_un_fichero()
'Creamos el objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
'Abrimos el fichero
Set archivo = fso.OpenTextFile("C\Mis documentos\fichero_que_queremos_leer.txt", 1)
'Cargamos en una variable la línea que queremos leer.
'En el ejemplo, leemos la línea 3, para lo cual nos
'saltaremos las 2 primeras líneas del fichero.
For i = 1 To 2
   'saltamos 2 líneas
    archivo.Skipline
Next
'Leemos la línea
contenido = archivo.readline()
'Cerramos el fichero
archivo.Close
'Limpiamos todo
Set fso = Nothing
Set archivo = Nothing
'Escribimos la línea 3 en la celda A1
Range("A1") = contenido
End Sub