dim IsFind as boolean

Private Function SeekInTree(StartNode As Node, strFind As String)
 ' поиск по дереву, рекурсия 
On Error GoTo SeekInTree_ERR
If isFind = False Then
    If StartNode.Children >  0  Then
        If InStr( 1 , StartNode.Text, strFind) >  0  Then
            StartNode.Selected = True
            isFind = True
            Exit Function
        Else
            Call SeekInTree(StartNode.Child, strFind)
            If StartNode.LastSibling.Key <> StartNode.Key And isFind = False Then
                Call SeekInTree(StartNode.Next, strFind)
            End If
        End If
    Else
        If InStr( 1 , StartNode.Text, strFind) >  0  Then
             StartNode.Selected = True
             isFind = True
             Exit Function
         Else
             If StartNode.LastSibling.Key <> StartNode.Key And isFind = False Then
                 Call SeekInTree(StartNode.Next, strFind)
             Else
                Exit Function
             End If
         End If
    End If
End If

SeekInTree_EXIT:
Exit Function

SeekInTree_ERR:
    Select Case Err.Number
        Case Else
            MsgBox Err.Description & "(" & Err.Number & ") ā ļšīöåäóšå SeekInTree"
            Resume SeekInTree_EXIT
    End Select
End Function