Public Class frmTreeview2
 
    Dim trv As New TreeView With _
        {.Parent = Me, .Width = 300, .Height = 300}
 
 
    Private Sub frmTreeview2_Load(sender As System.Object, _
                          e As System.EventArgs) Handles MyBase.Load
 
        Dim line As String
        Dim enc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim achse, val As TreeNode
        achse = Nothing
 
        'Array: zu ladende Schlüssel
        Dim suche() As String = _
            {"Betriebsart", "SollPosition1", "SollPosition2", _
             "FahrSpeed", "SchleichSpeed", "Verweilzeit"}
 
 
        Using sr As New IO.StreamReader("C:\Daten\Achsen1.txt", enc, False)
            Do
                line = sr.ReadLine
                If line.Trim.StartsWith("[ACHSE") Then                    
                    achse = trv.Nodes.Add(line.Trim("["c, "]"c))
                Else
                    'Schlüssel und Wert splitten
                    Dim parts() As String = line.Split("="c)
                    If parts.Length = 2 Then
                        'gewählter Schlüssel? 
                        If Array.IndexOf(suche, parts(0)) > -1 Then
                            val = achse.Nodes.Add(parts(0)) 'Schlüssel-Knoten
                            val.Nodes.Add(parts(1)) 'Wert-Knoten
                        End If
                    End If
                End If
            Loop While Not sr.EndOfStream
        End Using
 
    End Sub
End Class