this should help
Code:
    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim Dateiname As String = "D:\TestFolder\Users.txt"
        Using csvParser As New TextFieldParser(Dateiname)
            With csvParser
                .SetDelimiters(";")
                .HasFieldsEnclosedInQuotes = False ' or True 

                'my File has a Header
                Dim Header As String = .ReadLine()
                Dim FieldData() As String
                Do While Not .EndOfData
                    FieldData = .ReadFields()
                    ' Debug.Print(FieldData(0))  ' 1st Field
                    Debug.Print(FieldData(1))  ' 2nd Field
                    'Debug.Print(FieldData(2))  ' 3rd Field
                Loop
            End With
        End Using
    End Sub