With OpenFileDialog1
            .Title = "1 Datei auswählen"
            .InitialDirectory = "C:\Daten\"
            .CheckFileExists = True
            .Filter = "Datendatei |*.ini"
 
        End With
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then _
          Exit Sub
 
        TextBox1.Text = OpenFileDialog1.FileName
 
 
        Dim inilines() As String = IO.File.ReadAllLines( _
          OpenFileDialog1.FileName, System.Text.Encoding.Default)
 
        Dim hgr, ugr, sec As TreeNode
        hgr = Nothing : ugr = Nothing : sec = Nothing
        Dim farbe1 As Brush = Brushes.Blue
        For i As Integer = 0 To inilines.Length - 2
 
 
 
            With inilines(i + 1)
                If inilines(i).StartsWith("[HGR") Then
                    hgr = trv1.Nodes.Add((inilines(i).Substring(5, 5)) & " " & _
                      .Substring(.IndexOf("="c) + 1))
                    ugr = Nothing
                End If
 
                If inilines(i).StartsWith("[UGR") Then
                    ugr = hgr.Nodes.Add((inilines(i).Substring(5, 5)) & " " & _
                      .Substring(.IndexOf("="c) + 1))
                End If
 
                If inilines(i).StartsWith("[SEC") Then
                    If ugr Is Nothing Then
                        sec = hgr.Nodes.Add((inilines(i).Substring(5, 5)) & " " _
                          & .Substring(.IndexOf("="c) + 1))
                    Else
                        sec = ugr.Nodes.Add((inilines(i).Substring(5, 5)) & " " _
                          & .Substring(.IndexOf("="c) + 1))
                    End If
                End If
 
            End With
 
 
 
            With inilines(i)
                If .ToUpper.StartsWith("VAL=") Then
                    sec.Nodes.Add((.Substring(.IndexOf("="c) + 1)))
 
                End If
            End With
 
        Next i