Привет всем. Как переместиться в узел дерева с которого следует начинать поиск, а то при каждом последующем поиске точка поиска смещается в корень?

Private Function FindMyNode(ByVal MyText As String) As String
Dim NodeX As Node
Dim NodeFound As Boolean

On Error GoTo Err_FindHandler
If Trim(MyText) <> "" Then
NodeFound = False

For Each NodeX In Me.ctlTV.Nodes
If (UCase(NodeX.text) Like "*" & UCase(MyText) & "*") And ((NodeX.Key <> Me.txtLastFind.Value) Or (Me.txtLastFind.Value = "")) Then
NodeX.Expanded = True
NodeX.Selected = True
Me.ctlTV.SetFocus
Me.txtLastFind.Value = NodeX.Key
NodeFound = True
Exit For
End If
Next NodeX
If Not NodeFound Then Me.txtLastFind.Value = ""
End If

Exit Function
Err_FindHandler:
MsgBox "Ошибка поиска.", vbCritical
End Function

Понятно. Спасибо.