Sub createClassificationTreeView(ByVal tr As TreeView)
 
      tr.Nodes.Clear()
 
      Dim _DataFile As String = Path.GetFullPath("..\..\Data.txt")
      Dim nodePath As New List(Of TreeNodeCollection)
      nodePath.Add(tr.Nodes)
      Using rd = New StreamReader(_DataFile, True)
         While True
            Dim line = rd.ReadLine
            If line Is Nothing Then Return ' im Original steht nach Return 
            ' nichts funktioniert mit true und false
            Dim splits = line.Split(","c)
            Dim depth = Integer.Parse(splits(1))
            nodePath.RemoveRange(depth + 1, nodePath.Count - (depth + 1))
            Dim nd = nodePath(depth).Add(splits(0), splits(0))
            nodePath.Add(nd.Nodes)
         End While
      End Using
 
   End Sub

   Private Sub btnABCOrder_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnABCOrder.Click
      treGKNClassifications.Sort()
   End Sub

   Private Sub btnStructureOrder_Click(ByVal sender As System.Object, ByVal e _
     As System.EventArgs) Handles btnStructureOrder.Click
      ' ***********************************
      ' Zweck
      '  TreeView zusammenbauen, nur zusammenbauen 
 
      treGKNClassifications.Nodes.Clear()
      createClassificationTreeView(treGKNClassifications)
      ' 
      ' ENDE
      ' ***********************************
   End Sub