Public Function SearchNode(ByVal Text As String, ByVal Tv As TreeView) As _
      TreeNode
        Dim FoundNode As TreeNode
        For Each Tn_ As TreeNode In Tv.Nodes
            FoundNode = _SearchNode(Text, Tn_)
            If Tn_.Text.ToUpper = Text.ToUpper Then Return Tn_
            If Not FoundNode Is Nothing Then Return FoundNode
        Next
        Return Nothing
    End Function
    Private Function _SearchNode(ByVal Text As String, ByVal Tn As TreeNode) As _
      TreeNode
        For Each Tn_ As TreeNode In Tn.Nodes
            If Tn_.Text.ToUpper = Text.ToUpper Then Return Tn_
        Next
    End Function

     Dim Tn As TreeNode = Me.SearchNode("{Deine Suche}", Me.TreeView1)
     Me.TreeView1.SelectedNode = Tn
     Me.TreeView1.Focus()