Public Shared Function CallRecursive(ByVal aTreeView As TreeView, ByVal _
  suchtext As String) As TreeNode
        For Each n As TreeNode In aTreeView.Nodes
            Dim x As TreeNode = PrintRecursive(n, suchtext)
            Return x
        Next
        Return Nothing
End Function
Private Shared Function PrintRecursive(ByVal n As TreeNode, ByVal ntext As _
  String) As TreeNode
        For Each anode As TreeNode In n.Nodes
            If anode.FullPath = ntext Then
                Return anode
            End If
            PrintRecursive(anode, ntext)
            'End If
        Next
        Return Nothing
End Function