Visual Basic - Lineas en archivo

hola, como puedo saber cuantas lineas tiene un archivo de texto, es decir existe alguna propiedad que me lo diga?? en seguida pongo el codigo donde leo el archivo, y quiero saber cuantas lineas tiene para ponerle el numero a la propiedad max del progressbar:
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.OpenTextFile(sleer, 1, False)
prgData.Max = (lineas del archivo)
Do While A.AtEndOfStream <> True
prgData.Value = prgData.Value + 1
sLinea = A.readline
If sLinea <> "" Then sCampo = Left(sLinea, InStr(sLinea, " ") - 1)
.....
Loop
A.Close
DE antemano muchas gracias

variable = LOF(#Freefile)
Esta función devuelve, en bytes, el tamaño del fichero abierto con el canal indicado dentro del paréntesis.
LOF es la abreviatura de: Length Of File (longitud del fichero).

Para saber la longitud de un fichero, también puedes usar la función FileLen, esta se usa poniendo el nombre del fichero entre los paréntesis y también devuelve el tamaño en bytes:
(Tanto una función como la otra devuelven un valor LONG)

Y, digo yo, si quieres saber cuántas líneas tiene un fichero, podemos hacer esto:

Longitud = Caracteres

Toma la longitud total del fichero, luego toma la longitud de una línea y...

LongitudFichero / LongitudLínea = CantidadDeLíneas

¿O no?
¡Ya sabes cuántas líneas tiene ese fichero!

Listo, de maravilla.
Muchas gracias!!