RegExp: cosa non va stavolta?

[atreliu1]

Salve a tutti,
sto effettuando un semplice parsing di un testo.. ma nonostante tutto non riesco a capire cosa e dove sbaglio..
voi sapete aiutarmi?
Vi fornisco la funzione con cui estraggo, e il testo su cui agisce:

Function estrai(elemento)
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True

'Estraggo il titolo:
objRegExp.Pattern = "[b]([^<b\/>]+)<b\/>"
elemento = objRegExp.Replace(elemento, "Titolo: $1 
")
'Estraggo indirizzo:
objRegExp.Pattern = "via:(via:[^tel:]+)tel:"
elemento = objRegExp.Replace(elemento, "Indirizzo:
$1
")
'Estraggo tel/fax:
objRegExp.Pattern = "tel:(tel:[^]+)'"
elemento = objRegExp.Replace(elemento, "E-mail:
$1
")
'Estraggo sito:
objRegExp.Pattern = "<a target='_blank' href=(<a target='_blank' href='[^'>]+)'>"
elemento = objRegExp.Replace(elemento, "Sito:
$1
")

set objRegExp = Nothing
estrai = elemento
End Function

Testo su cui agisce la funzione:

<div align='right'>( 1 )</div>


AI - ALZHEIMER ITALIA FEDERAZIONE DELLE ASSOCIAZIONI ALZHEIMER

via: VIA TOMMASO MARINO, 7

MILANO

tel: 02-809767

fax: 02-875781 - altro tel:

alzit@tin.it, info@alzheimer.it

http://www.alzheimer.it

[viki1967]

Ma qual'è il problema?

[atreliu1]

Non ho output: niente errori, ma neanche niente risultati!
Mi sarei aspettato una cosa tipo

Titolo: xxxxx
Indirizzo: xxx xxxxxxx xxx
[..]

Invece niente di tutto questo..