Public Sub test()
        Dim lines As String() = _
        Microsoft.VisualBasic.Split(My.Computer.FileSystem.ReadAllText( _
        "C:\daten\user.txt", System.Text.Encoding.Default), _
        Microsoft.VisualBasic.vbCrLf)
        With DataGridView1
            .Columns.Add("Username", "Username")
            .Columns.Add("Passwort", "Passwort")
 
            Dim fields() As String
            For Each line As String In lines
                fields = line.Split(";"c)
                .Rows.Add(fields)
            Next line
        End With
    End Sub