Para poder saber la cantidad de lineas pone lo siguiente en un boton.
Private Sub Command1_Click()
Const ForReading = 1, ForWriting = 2
Dim fso, f, asa As Long
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\archivoaleer.txt", ForReading)
Readalltextfile = f.ReadAll
asa = f.Line
MsgBox asa
End Sub
