Считать с TreeView1 всё что в нём находится

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
   ' Determine by checking the Node property of the TreeViewEventArgs.
   MessageBox.Show(e.Node.Text)
End Sub

Sub Command1_Click()
 
 
End Sub

Dim TreeView1Nodes As String
TreeView1Nodes = ""
   
Dim aNode As Node
   
For Each uc In TreeView1.Nodes
'изменение цвета узла
aNode.ForeColor = 255
TreeView1Nodes = TreeView1Nodes & aNode.Text
Next
  
MsgBox TreeView1Nodes

 TreeView1.SaveToFile ("C:\tree.txt")

ff=freefile()
open "c:\file.log" for output as #ff
  print #ff, TreeView1Nodes
close #ff

ff=freefile()
open "c:\file.log" for output as #ff
  print #ff, TreeView1Nodes
close #ff

ff=freefile()
open "c:\file.log" for output as #ff
for each no in TreeView1Nodes
  print #ff, no 
Next
close #ff

ff=freefile()
open "c:\file.log" for output as #ff
  print #ff, TreeView1.Nodes
close #ff

ff = FreeFile()
Open "c:\file.log" For Output As #ff
  For i = 1 To TreeView1.Nodes.Count
       Print #ff, TreeView1.Nodes.Item(i)
  Next i
Close #ff

Private Sub CallRecursive(ByVal aTreeView As TreeView)
   Dim n As TreeNode
   For Each n In aTreeView.Nodes
      PrintRecursive(n)
   Next
End Sub
 
Private Sub PrintRecursive(ByVal n As TreeNode)
   System.Diagnostics.Debug.WriteLine(n.Text)
   MessageBox.Show(n.Text)
   Dim aNode As TreeNode
   For Each aNode In n.Nodes
      PrintRecursive(aNode)
   Next
End Sub