Dim F As Integer
Dim lSize As Long
Dim lRead As Long
Dim sLine As String
 
F = FreeFile
Open "DeineDatei.txt" For Input As #F
 
lSize = Lof(F)
ProgressBar1.Max = lSize
ProgressBar1.Min = 0
ProgressBar1.Value = 0
 
While Not Eof(F)
  Line Input #F, sLine
  lRead = Loc(F)
  If lRead > lSize Then lRead = lSize
  ProgressBar1.Value = lRead
  DoEvents
Wend
Close #F