Visual Basic - txt

hay alguna forma de contar cuantas lineas hay escritas en un archivo txt, ya que necesito hacer un redim a un arreglo y este depende de el numero de estas , de ante mano gracias

una forma puede ser

Dim cuenta As Long
Open "c:\midire\mifichero.txt" For Input As #1
cuenta = 0
While Not EOF(1)
Line Input #1, z$
cuenta = cuenta + 1
Wend
Close
en cuenta tendras el numero de lineas