anche sa hai risolto ti passo il codice per le espressioni regolari....

codice:
r.MultiLine = True
r.Global = True
r.Pattern = "&idad=[^&]*"
List1.Clear
Set a = r.Execute(Text1)
For Each b In a
    List1.AddItem b
Next
Dove r è RegExp e in text1 ci sarà il testo da parserare

secondo me le espressioni regolari sono più comode, cmq vedi tu