Visual Basic - ¡¡¡!Ayuda Urgente!!!

Como puedo saber el numero de lineas que tiene un archivo de texto que leo.

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