Dim myReader As IO.StreamReader
myReader = New IO.StreamReader(mDateiname, System.Text.Encoding.Default)
nAnzahl = Split(myReader.ReadToEnd(), vbCrLf).Length.ToString() - 1
myReader = Nothing
 
myReader = New IO.StreamReader(mDateiname, System.Text.Encoding.Default, True)
Dim mystring As String
Dim a() As String
 
mystring = myReader.ReadLine
 
                  While myReader.Peek <> -1
 
                     Application.DoEvents()
                     mystring = myReader.ReadLine
 
 
                     a = mystring.Split(";")
 
                     nAnzSpalten = a.GetUpperBound(0) + 2
 
                     n = 0
                     n = n + 1 : If n < nAnzSpalten Then ...
 
...
 
                     nZähler = nZähler + 1
                     nProzent = Int((nZähler / nAnzahl) * 100)
 
                 Einlesen.prgProgressBar.Value = nProzent
                 Einlesen.lblDateiname.Text = clsapp.PfadGekuerzt(mDateiname)
                 Einlesen.lblDatensätze.Text = nZähler & "/" & nAnzahl & " (" & _
                   nProzent & "%)"
                 Einlesen.Refresh()
 
                 Application.DoEvents()
 
 
                  End While
 
                  myReader.Close()