Hola.
Te puedo ayudar para encontrar la cadena, para realtarla, sinceramente no se me ocurre nada pra hacerlos
Entonces, para encontrar una cadena
Código:
'Guardamos el contenido del webbrowser
aux = WebBrowser1.Document.body.innerHTML
Cadena = "TuCadena"
'Buscamos donde comineza la cadena
Ini = InStr(1, aux, Cadena)
'Si existe
If ini >0 then
'Lo mostramos
msgbox mid(aux, ini, len(Cadena)-Ini)
endif
Espero te sirva por lo menos ara comenzar
Saludos