Regular Expression, fed og links

Jeg skal bruge en regular expression der kan erstatte:
[f]TEST[/f] med <span class="bold">TEST</span>
og:
[l]TEST[/l] med <a href="http://TEST" target="_blank">TEST</a>

og tilbage igen, altså fra <span> og <a> til [f] og [l] tags igen.

Jeg har noget kode nu, men det fungerer ikke 100% efter hensigten, der er bl.a. fejl i det hvis man skriver flere tags efter hinanden.

~Thomas

-----------------------------

Function FnRepIns(content)
        Set regEx = New RegExp
        regEx.Global = true
        regEx.IgnoreCase = True

        regEx.Pattern = "(\[l\])(.*)(\[/l\])"
        content = regEx.Replace (content, "<a href=""http://$2"" target=""_blank"">$2</a>")
        regEx.Pattern = "(\[L\])(.*)(\[/L\])"
        content = regEx.Replace (content, "<a href=""http://$2"" target=""_blank"">$2</a>")
        regEx.Pattern = "\[f\](.*)\[/f\]"
        content = regEx.Replace (content, "<span class=""bold"">$1</span>")
        regEx.Pattern = "\[F\](.*)\[/F\]"
        content = regEx.Replace (content, "<span class=""bold"">$1</span>")
        Set regEx = Nothing
    FnRepIns = content
End Function

Function FnRepOut(content)
        Set regEx = New RegExp
        regEx.Global = true
        regEx.IgnoreCase = True

        regEx.Pattern = "(<a href=""http://)(.*)("" target=""_blank"">)(.*)(</a>)"
        content = regEx.Replace (content, "[l]$2[/l]")
        regEx.Pattern = "(<span class=""bold"">)(.*)(</span>)"
        content = regEx.Replace (content, "[f]$2[/f]")
        Set regEx = Nothing
    FnRepOut = content
End Function