Public Sub test()
 
     Dim lines As String() = _
     Microsoft.VisualBasic.Split(My.Computer.FileSystem.ReadAllText( _
     "I:\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
             'Leere und Spacige Zeilen aussondern
             If line.Trim.Length > 0 Then
                 'Zeile nach Trennzeichen splitten
                 fields = line.Split(";"c)
                 'Zahl der Spalten sicherstellen
                 ReDim Preserve fields(DataGridView1.Columns.Count - 1)
                 For i As Integer = 0 To fields.Length - 1
                     'Fehlende und Leere Felder verarbeiten
                     If String.IsNullOrEmpty(fields(i)) OrElse _
                        fields(i).Trim = String.Empty Then fields(i) = "????"
                 Next i
                 'Felder als neue Row im dgv anhängen
                 .Rows.Add(fields)
             End If
         Next line
     End With
End Sub