Visual Basic - archivos de texto

Amigos programadores, una duda simple que no he podido rewsollver:
Tengo un archivo de texto que tiene un Nº variable de lineas de datos( este se genera de otra rutina y cada vez que la ejecuto me genera un archivo de texto con datos pero siempre de diferente Nº de lineas) entonces me gustraia sabe r como puedo para contar el Nº de lineas del archivo.
Atte
Marcelo
Gracias

Dim lin As Integer, n As Integer
Dim txt As String

n = FreeFile

Open archivotxt For Input As #n

While Not EOF(n)
Line Input n, txt
lin = lin +1
Wend

no sé si funciona a la perfección pero seria algo así
suerte ;)