Public Function FindTreeNode(ByVal text As String, ByRef tv As TreeView) As _
     TreeNode
        Dim foundNode As TreeNode
        For Each tn As TreeNode In tv.Nodes
            FindTreeNode(text, tn, foundNode)
            If Not foundNode Is Nothing Then Return foundNode
        Next
    End Function
    Private Sub FindTreeNode(ByVal text As String, ByRef tn As TreeNode, ByRef _
      foundNode As TreeNode)
        If tn.Text.Equals(text) Then foundNode = tn : Return
        For Each tn_ As TreeNode In tn.Nodes
            FindTreeNode(text, tn_, foundNode)
        Next
    End Sub
 
    '// Aufruf:
    Me.TreeView1.SelectedNode = Me.FindTreeNode("{Text des TreeNodes}", _
      Me.TreeView1)