来源:http://community.csdn.net/Expert/topic/3873/3873123.xml?temp=.402569
Dim Exps
Str="<a taget=_blank href=""www.abc.com"">abc</a>"
Set Exps= New Regexp
Exps.Pattern = "<a/s(.*?)+href=(/"")?(.+?)(/"")?/s*(.*?)>(.+?)</a>"
Exps.Ignorecase = True
Exps.Global = True
Set Matches =Exps.Execute(Str)
For Each Match In Matches
Msgbox Match.Submatches(1)
Next
Set Matches =Nothing
Set Exps=Nothing