Mostrar barra de progreso (ProgressBar)

[recg]

Primero cuento las lineas del archivo y estas van a ser el máximo de la barra de progreso y asi no necesitas calcular un promedio.

Open ("C:\PROGRAMA_PDN\PN_DIGICEL.TXT") For Input As #1
Do While Not EOF(1)
Line Input #1, DATO
C = C + 1
Loop
Close #1

Open ("C:\PROGRAMA_PDN\PN_DIGICEL.TXT") For Input As #1
Do While Not EOF(1)
With ProgressBar1
.Min = 0
.Value = 0
.Max = C - 1
For i = 0 To .Max

Line Input #1, DATO

Close #2
.Value = i
Next
End With
Loop