"Sonraki" şeklinde değil de, bulunanları işaretleme şeklinde isterseniz;
Private Sub CommandButton1_Click()
For b = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(b).Expanded = False
TreeView1.Nodes(b).Bold = False
TreeView1.Nodes(b).Selected = False
Next b
bul = InStr(1, TextBox1, TextBox2, vbTextCompare)
If bul = 0 Then MsgBox "Bulamadım!", vbExclamation, TextBox2: TextBox2.SetFocus: GoTo tree ': Exit Sub
TextBox1.SetFocus
TextBox1.SelStart = bul - 1
TextBox1.SelLength = Len(TextBox2)
tree:
For i = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(i) Like "*" & TextBox2.Text & "*" Then
TreeView1.Nodes(i).EnsureVisible
TreeView1.Nodes(i).Bold = True
TreeView1.Nodes(i).Selected = True
End If
Next i
End Sub