Disculpa que en el anterior no completé la información, ahí va
blnEncontrado = false
intPos = 1
do while not blnEncontrado and intPos <= TreeView1.Nodes.Count
if treeview1.nodes(intPos).text = [el texto que andas buscando] then
blnEncontrado = true
else
intPos = intPos + 1
end if
loop
Set TreeView1.SelectedItem = TreeView1.Nodes(intPos)