Visual Basic - Otro problema con el line input xDD

Hola!! gracias sunco por ayudarme, pero tengo otro problemilla .. xDDD

Ahora me gustaria saber si existe alguna manera de contar los renglones o lineas que hay en
un archivo...

existe? graciar por ayudarme

Es sencillo

contador = 0
Open "c:\datos.txt" For Input As #1
Do
Line Input #1, la_variable
contador = contador + 1
Loop Until EOF(1)
Close #1

MsgBox "Tiene " & contador & " lineas"