Dim Reader As New FileIO.TextFieldParser(Dateiname, _
  System.Text.Encoding.Default)
Reader.TextFieldType = FileIO.FieldType.Delimited
Reader.SetDelimiters(";")
Reader.HasFieldsEnclosedInQuotes = False
While Not Reader.EndOfData
 Dim row As String()
 row = Reader.ReadFields
 Dim Wert1 as String = row(0)
 Dim Wert2 as String = row(1)
'usw
Loop