Dim Zeile as String
Dim strArray() As String
Dim Reader As New System.IO.StreamReader(Dateiname)                                  
Reader = New System.IO.StreamReader(Dateiname, System.Text.Encoding.Default) 
 
           While Reader.Peek <> -1
                Application.DoEvents()
                Zeile = Reader.ReadLine().Trim.ToUpper
                strArray () = Zeile.Split(CChar(";"))
 
                ' Daten in Datenbank sichern
                dbhandling.AddToDB(strArray)
 
            End While