Ciao a tutti

Dovrei creare un Funzione che:
prende in imput una stringa di testo (formata da codice HTLM) e restituisce una lista con virgola cmposta delle parole che sono
comprese tra i tag ....
esmpio:
do in pasto alla funzione la seguente stringa:
Sono andato dal gommista e ho acquistato le
<h1>Titolo pagina</h1>
catene da neve per la mia auto

la funzione mi deve restituire:
gommista, catene da neve, auto
Pensavo di usare le espessioni regolari ma purtroppo non me la cavo per niente bene con quest'oggetto, in particolare dovrei sapere qual'è il pattern da usare e qual'è il metodo che si deve usare per estrapolare dal testo le parole che soddisfano i criteri espressi nel Pattern.

Function Get_KeyWords(stringa_HTML)
dim re
Set re = new RegExp
re.Global=True
re.Pattern="......"
.....
.....
.....
Set re=nothing
END function

qualcuno sa aiutarmi?

Grazie