Pulizia testo in HTML da TAG HTML

[CiodoF]

salve, devo sviluppare una funzione che mi pulisca la parte html (tag, script, style, meta, ecc.) contenuto in una variabile, e mi restituisca il solo TESTO.

Es :
Pagina="titolo link <span id="AS85">Vediamo se va</span> ...... "

Pagina=ParserHTML(Pagina)
E mi restiuisca solo :
"titolo link Vediamo se va ...... "

Come posso fare?
Ho fatto una funzione che contiene tutti i tag HTML e me li pulisce uno a uno ma è lenta con contenuti corposi.


Danke.

[salvodibella]

devi utilizzare le regular expression.

[CiodoF]

Come faccio?
Non sono un esperto.

[willybit]

Function TogliTag(html)
  Set objRE = CreateObject("VBScript.RegExp")
  objRE.Pattern="\<.*?\>"
  objRE.Global=true
  TogliTag = objRE.Replace(html,"")
End Function