Dim F As Integer
Dim nLines As Long
Dim nLine As Long
Dim sLine As String
Dim iProz As Integer
Dim sFile As String
 
' Datei, die ausgelesen werden soll
sFile = App.Path & "\MyFile.txt"
 
' zunächst Anzahl der Zeilen ermitteln
F = FreeFile
Open sFile For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  nLines = nLines + 1
Wend
Close #F
 
' Datei zeilenweise auslesen und aktuellen 
' Fortschritt anzeigen
F = FreeFile
Open sFile For Input As #F
Do Until Eof(F)
  Line Input #F, sLine
 
  ' Fortschritt in Prozent
  nLine = nLine + 1
  iProz = Int(nLine / nLines * 100 + 0.5)
  lblStatus.Caption = CStr(nProz)
  DoEvents
Loop
Close #F