Public Class frmFindTreeNodes
 
    Dim WithEvents trv As New TreeView With {.Parent = Me}
 
 
    Private Sub frmFindTreeNodes_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'testdaten
        Dim tn As TreeNode = trv.Nodes.Add("Art1")
        tn = tn.Nodes.Add("Art1-1")
        tn = tn.Nodes.Add("krit")
 
        tn = trv.Nodes.Add("Art2")
        tn = tn.Nodes.Add("Art2-1")
        tn = tn.Nodes.Add("Art2-2")
        tn = tn.Nodes.Add("krit")
 
        tn = trv.Nodes.Add("Art3")
        tn = trv.Nodes.Add("krit")
 
        Dim pathlist As New List(Of String)
 
        FindPaths(trv.Nodes, "krit", pathlist)
 
        For i As Integer = 0 To pathlist.Count - 1
            Console.WriteLine(pathlist(i))
        Next i
    End Sub
 
 
    ''' <summary>Suche nach den Knoten-Pfaden, die einen bestimmten Text 
    ' enthalten</summary>
    ''' <param name="tnc">zu durchsuchende Knoten-Auflistung</param>
    ''' <param name="Text">zu suchender Text (Groß-/Kleinschreibung 
    ' ignoriert)</param>
    Private Sub FindPaths(tnc As TreeNodeCollection, _
        ByVal Text As String, ByRef pathlist As List(Of String))
 
        If String.IsNullOrEmpty(Text) Then pathlist = Nothing : Exit Sub
 
        Dim TextToFind As String = Text.Trim.ToLower
 
        For Each tnCurr As TreeNode In tnc
            If tnCurr.Text.Trim.ToLower = TextToFind Then
                pathlist.Add(tnCurr.FullPath)
            End If
 
            'rekursiv weitersuchen 
            FindPaths(tnCurr.Nodes, Text, pathlist)
        Next tnCurr
 
    End Sub
End Class

Structure Gesamtartikel
 Dim strArtikel As String
 Dim strPfad As String
End Structure
 
Dim Gesamtliste_Ebene5 As System.Collections.Generic(Of Gesamtartikel)