Conocer de alguna manera cuantas lineas tiene un archivo de texto

[Bazooka]

HOLA AMIGOS tengo este codigo que funciona ok y lee linea por linea un afile de texto, ahora  quiero colocarle una barra de progreso pero sucede que no conozco la cantidad de lineas del archivo y no me parece muy efectivo recorrerlo todo primero para ver cuantas lineas y asi asignar la propiedad MAX al progress.
Hay alguna otra forma de hacerlo?

Código: [Seleccionar]

Private Sub LeerArchivo()

    On Error GoTo errSub

    Dim n_File As Integer

    Dim Linea  As String

    Dim cont   As Long

    cont = 0
    n_File = FreeFile
   
    Open txPath.Tag For Input As n_File
    ' pr4.Max = ??????: pr4.Visible = True
    Do While Not EOF(n_File)
        ReDim Preserve Filas(cont)
        Line Input #n_File, Linea
        Filas(cont) = Linea
        cont = cont + 1
      '  pr4.Value = cont
    Loop
    Exit Sub

errSub:
    MsgBox "Número de error: " & Err.Number & vbNewLine & "Descripción del error: " & Err.Description, vbCritical
End Sub

[seba123neo]

podes leer la cantidad de bytes total del archivo y despues los bytes de cada linea que vas recorriendo.

[Bazooka]

podes leer la cantidad de bytes total del archivo y despues los bytes de cada linea que vas recorriendo.

ejemplo please...