Hola amigo :-)
aquí tienes un codigo
tienes que cargar desde la ventana componente este objeto
Microsoft HTML Object Librery
o declaras una variable tipo object
Dim T As IHTMLTxtRange ' o tipo object
Set T = Web.Document.body.createTextRange
if T.findText("Busqueda") = true then
T.Select
else
msgbox "NO se encontro el texto"
end if