ottimo lavoro...

solo una piccola imperfezione (non capisco come tu non l'abbia vista... forse non l'hai scritto tu :P)

il codice giusto è questo (in rosso la modifica)
codice:
Function strLink2(strHTML)
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "#pop\s*((\n|.)+?)\s*"

if strHTML<>"" then
strLink2 = objRegExp.Replace(strHTML, "$4")
end if
End function