Visual Basic - Contar lineas archivo

Estimados.

Alguien sabe como puedo contar la cantidad e lineas de un archivo estuve probando pero no me resulta me entrega un valor nada que ver

Transcrivo lo que tengo

archivo = "C:/Archivo.txt"
Open archivo For Input As #1
Contar = 0
While Not EOF(1)

Line Input #1, mivariable
Contar = Contar + 1
Wend

Se agradece cualquier ayuda
Saludos

hola claudio, le hice algunas modificaciones a tu codigo,
lo prove con un command1
cualquier duda contactame a
[email protected]
Dios te bendiga

-------------------------------------------------------
tu codigo:
-------------------------------------------------------
Private Sub Command1_Click()
archivo = "C:/Archivo.txt"
Open archivo For Input As #1
Contar = 0
While Not EOF(1)

Line Input #1, mivariable
Contar = Contar + 1
Wend
end sub

-------------------------------------------------------
con las modificaciones
-------------------------------------------------------
Private Sub command1_Click()
Dim contar As long
archivo = "C:/Archivo.txt"
Open archivo For Input As #1
While Not EOF(1)
Line Input #1, mivariable
contar = contar + 1
Wend
Close #1
MsgBox contar & " lineas"
End Sub