Lav tjek på function

Jeg har denne funtion hvor jeg kører  mit "badword" filter

'********************* BADWORDS *******************************
Function Badword(strContent)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True

    strBadword = "SELECT * FROM badword WHERE active = 1"
    Set RsBadword = conn.Execute(strBadword)
    While Not RsBadword.EOF
        re.Pattern = "\b" & rsBadword("badword") & "\b"
        strContent = re.Replace(strContent, "<u><font color=""yellow"" title=""Ord fanget af ordfilteret"" style=""cursor:pointer;""><img src=""images/warning_icon.gif"" border=""0"">" & RsBadword("goodword") & "</font></u>")

        RsBadword.MoveNext
    Wend
    Set RsBadword = Nothing
    Badword = strContent
End Function


Den erstatter ordene som den skal osv -jeg vil bare gerne have udvidet den lidt

Jeg skal nemlig tilføje i en anden tabel "userlog" beskeden HVIS der er et ord der ligger i mit badwordfilter..

Hvordan klarer jeg lige det?