"PGD_BOHRKLASSE", "PGD_DURCHMESSER", "PGD_X", "PGD_Y", "PGD_Z", "PGD_TIEFE", _
  "PGD_RICHTUNG", "PGD_BEDINGUNGSTR", "PGD_MESSKORR_TYP"

Public Class Form1
Dim col1() As String = {"PGD_BOHRKLASSE", "PGD_DURCHMESSER", "PGD_X", "PGD_Y", _
  "PGD_Z", "PGD_TIEFE", "PGD_RICHTUNG", "PGD_BEDINGUNGSTR", "PGD_MESSKORR_TYP"}
 
Dim flines1() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
        Dim lvi1 As ListViewItem = Nothing
 
        For i As Integer = 0 To flines.Count - 1
            Dim parts() As String = flines(i).Split("="c)
 
 
            If flines(i).Trim.StartsWith(col1(0)) Then
                lvi = lveinzel.Items.Add(parts(1))
                For k1 As Integer = 1 To col1.Length - 1
                    lvi.SubItems.Add("")
                Next k1
            End If
 
 
            Dim id1 As Integer = Array.IndexOf(col1, parts(0))
 
 
            If lvi IsNot Nothing AndAlso id1 > 0 Then
                lvi.SubItems(id1).Text = parts(1)
            End If
 
        Next (i)