Find e-mail adresse i tekst og erstat med ny kode

Jeg har forsøgt med følgende:

Function TextConv(sText)
    Dim objRegExp
    Set objRegExp = New RegExp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
    sText = objRegExp.Replace(sText, "###$1###")
    Set objRegExp = Nothing
    TextConv = sText
end function

Som test sætter jeg bare ### foran og bagved e-mail adressen, men problemet lige nu er at de første ### "forsvinder" ind i den foran stående tag (hvis der er en). Fx hvis teksten er:
<span class=emailClass>min@mail.dk</span>
så bliver det til
<span ###class=emailClass>min@mail.dk###</span>

Så nu er opgaven at opsætte den korrekte regular expression sætning...

Jeg lukker her og forsætter på http://www.eksperten.dk/spm/824023