Specifying href target window in post

            'If this is an hyperlink tag then check it for malicious code

            If InStr(1, strTempHTMLMessage, "href", 1) <> 0 Then



           
    'Turn < and > into forum codes so they aren't
stripped when checking links

           
    strTempHTMLMessage = Replace(strTempHTMLMessage,
"<", "**/**", 1, -1, 1)

           
    strTempHTMLMessage = Replace(strTempHTMLMessage,
">", "**\**", 1, -1, 1)



           
    'Call the format link function to strip malicious
codes

                strTempHTMLMessage = formatLink(strTempHTMLMessage)



                'Turn **/** and **\** back from forum codes

           
    strTempHTMLMessage = Replace(strTempHTMLMessage,
"**/**", "<", 1, -1, 1)

           
    strTempHTMLMessage = Replace(strTempHTMLMessage,
"**\**", ">", 1, -1, 1)



                'Format link tag

       
        strTempHTMLMessage =
Replace(strTempHTMLMessage, ">", " target=""_blank"">", 1, -1, 1)



            End If