Hola, me gustaria que alguien me echara una mano tengo esto:

Private Sub WebBrowser1_DocumentComplete(Index As Integer, ByVal pDisp As Object, URL As Variant)

CodigoHTML = WebBrowser1(Index).Document.documentelement.innerh tml

Text1.Text = CodigoHTML


End Sub

Pero eso lo que hace es pasarme todo el codigo del HTML a una casilla de texto, y yo lo que busco es sacarlo por atributos o etiquetas para cojer el texto que me interesa de una web.

Cuales son las opciones de poder hacerlo?

Espero vuestra ayuda.

Gracias.