Public Shared Function CallRecursive(ByVal aTreeView As TreeView, ByVal _
  suchtext As String) As TreeNode
        For Each knoten As TreeNode In aTreeView.Nodes
            If knoten.FullPath = suchtext Then
                Return knoten
            End If
            Dim foundnode As TreeNode = PrintRecursive(knoten, suchtext)
            Return foundnode
        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
            Else
                Dim tn As TreeNode = PrintRecursive(anode, ntext)
                If tn IsNot Nothing Then
                    Return tn 
                End If
            End If
        Next
        Return Nothing
    End Function