Visual Basic - URGE:Contar lineas de archivo TXT

porfavor si alguien sabe... como contar lineas de un archivo de texto.. se lo agradecere .. tengo un buen rato intentando saber.. y ahora si me urge... se que es muy sencillo.. pero pues no le hayo el modo.. se los agradecere..

Espero que esto te pueda funcionar y servir:

Dim Archivo as String
Dim NumLineas as Long
Archivo = RutadelArchivo
Open Archivo For Input As #1
NumLineas = 0
Do While Not EOF(1)
Line Input #1, LineadeTexto
NumLineas = NumLineas + 1
Loop
Debug.Print NumLineas
Close #1

Un saludo.