Recorrer todos los nodos de un TreeView

    Private Sub PrintRecursive(ByVal n As TreeNode)

        System.Diagnostics.Debug.WriteLine(n.Text) 'Muestra el texto del nodo en la ventana de inmediato

        MessageBox.Show(n.Text) 'Muestra el mismo mensaje por pantalla

        '*** Es aqui donde añado lo que necesito guardar de cada nodo *** 

        Dim aNode As TreeNode

        'Por cada nodo de la raiz

        For Each aNode In n.Nodes

            PrintRecursive(aNode)

        Next

    End Sub

    'Llame al procedimiento usando los nodos superiores de la vista de árbol.

    Private Sub CallRecursive(ByVal aTreeView As TreeView)

        Dim n As TreeNode

        'Por cada raíz

        For Each n In aTreeView.Nodes

            PrintRecursive(n)

        Next

    End Sub