Hola,te dejo un codigo para sacarle los tags HTML a una pagina y dejar solo el texto,agrega la referencia a
Microsoft HTML Object Library..desde el menu
Proyecto-->Referencias..,pone un
webbrowser y un
textbox multilinea al form y este codigo...
Código:
Dim webdoc As HTMLDocument
Dim texbody As HTMLBody
Dim Texob As IHTMLTxtRange
Private Sub Form_Load()
WebBrowser1.navigate "http://www.google.com.ar"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set webdoc = WebBrowser1.Document
Dim Acollection As IHTMLElementCollection
Set Acollection = webdoc.All.tags("a")
Set texbody = webdoc.body
Set Texob = texbody.createTextRange()
Text1.Text = Texob.Text
Texob.moveToElementText Acollection.Item(3)
Texob.Select
End Sub
saludos.