URL'en skal deaktiveres mellem "anførselstegn"

Hej -

Jeg bruger nedenstående funktion til aktivering af links, og det funker såment fint nok.

MEN - Jeg vil gerne de-aktivere denne funktion hvis linkangivelsen forekommer mellem 2 anførselstegn.

Eksempel:

' Denne skal være aktiv:
Se min site http://www.bloteteksempel.dk osv.

' Denne skal de-aktiveres:
Se min site "http://www.bloteteksempel.dk" osv.


'Nuvørende funktion:
Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'><img src='img/getemail_small.gif' title='$1' border='0' vspace='2'></a> ", _
        " <a href='$1$2' target='_blank'><img src='img/getwww_small.gif' title='$1$2' border='0' vspace='2'></a> ", _
        " <a href='http://$2' target='_blank'><img src='img/getwww_small.gif' title='$2' border='0' vspace='2'></a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
End Function

Hvem ka' hjælpe :-)
Mvh, Michael