Public Class frmFillGrid
 
    Dim dgv As New DataGridView With {.Parent = Me}
 
 
    Private Sub frmFillGrid_Load(sender As System.Object, _
                              e As System.EventArgs) Handles MyBase.Load
 
 
        Dim lines() As String = _
            IO.File.ReadAllLines("C:\Daten\001030777965L (2).txt")
 
        Dim dt As New DataTable
        Dim i As Integer
        'Spalten erstellen
        For i = 0 To lines.Length - 1
            If lines(i).ToUpper.StartsWith("BEARBEITUNGSINDEX") Then
                dt.Columns.Add(lines(i).ToUpper.Split("="c)(0))
                For k As Integer = 1 To 16
                    dt.Columns.Add(lines(k + i).ToUpper.Split("="c)(0))
                Next k
                Exit For
            End If
        Next i
 
        'Zeilen füllen
        Try
            i = 0
 
            Do
                If lines(i).ToUpper.StartsWith("BEARBEITUNGSINDEX") Then
                    Dim r As DataRow = dt.NewRow
                    r(0) = lines(i).ToUpper.Split("="c)(1)
                    For k As Integer = 1 To 16
                        i += 1
 
                        r(k) = lines(i).ToUpper.Split("="c)(1)
                    Next k
                    dt.Rows.Add(r)
                End If
                i += 1
            Loop While i < lines.Count
        Catch
            Stop
        End Try
 
        dgv.DataSource = dt
    End Sub
End Class