Cita:
Iniciado por Sergestux 
Pero no pusiste el codigo y nadie mas que tu salio benefeciado de este post
Tenes razon, de todas formas lo tuve que hacer por mi cuenta, aca esta como:
Primero agregamos una "referencia", no componente, a Microsoft Scripting Runtime, luego en el codigo propio de la aplicacion:
'Dimensionamos propiamente un objeto y el archivo de referencia:
Dim objeto As FileSystemObject
Dim archivo As TextStream
'Seteamos correctamente el archivo como objeto para poder trabajar con este:
Set objeto = New FileSystemObject
Set archivo = objeto.OpenTextFile("ruta del archivo", ForAppending)
'Aplicamos la funcion propiapara saber la cantidad de lineas:
lineas = archivo.Line
'Cerramos el archivo para evitar impedancias:
archivo.Close
Espero que les sirva, me costo trabajo.