Variable1 = Header(0).Feldname 
Variable2 = Header(1).Feldname

    Public Function GetIndex(ByRef ar() As Head, ByVal fName As String) As _
      Integer
        Dim GotIt As Boolean = False
        Dim i As Integer
        For i = 0 To ar.Length - 1
            If ar(i).Feldname.Trim.ToLower = fName.Trim.ToLower Then
                GotIt = True
                Exit For
            End If
        Next
        If GotIt = False Then
            Debug.Print(fName)
            ReDim Preserve ar(ar.Length)
            Dim newEntry As New Header
            newEntry.Feldname = fName
            newEntry.Feldwert = ""
            ar(ar.Length - 1) = newEntry
            i = ar.Length - 1
        End If
        Return i
    End Function

Header(GetIndex(Header, "Wert")).Feldname