The forums badword filter is unuseable in its present state.  Here is an implementation that will not substitute "fanny" for assume -> fannyume or password -> pfannyword, etc...

'
                    objFilterWord = CType(colFilterWord.Item(intCount), FilterWordInfo)
                    '
                    If objFilterWord.CreatedOn > TimeStamp Then
                        '
                        Dim rx As Regex = BuildRegex(objFilterWord.BadWord)
                        '
                        If (rx.IsMatch(Text)) Then
                            Text = rx.Replace(Text, objFilterWord.ReplacedWord)
                        End If
                    End If

Private Function BuildRegex(ByVal badWord As String) As System.Text.RegularExpressions.Regex

            '***************************************************************
            '09-17-07 improvement to bad word filter via regular expressions
            'for more precision - jfs.
            Const RegexMetaCharacters As String = "(\[|\\|\^|\$|\.|\||\?|\*|\+|\(|\))"

            Dim filter As StringBuilder
            Dim exp As String = String.Empty
            Dim wordCapture As String = String.Empty
            Dim rx As Regex = Nothing

            If (Regex.IsMatch(badWord, RegexMetaCharacters)) Then
                '(?i)(\bBADWORD\B|(\d?)BADWORD(\d?)(\B|\b)[^a-zA-Z&;<])
                wordCapture = Regex.Escape(badWord)
                '
                filter = New StringBuilder(50)
                filter.Append("(?i)(\b")
                filter.Append(wordCapture)
                filter.Append("\B|(\d?)")
                filter.Append(wordCapture)
                filter.Append("(\d?)(\B|\b)[^a-zA-Z&;<])")
                '
            Else
                '(?i)(\bBADWORD\b|(\d?)BADWORD(\d?)(\B|\b)[^a-zA-Z&;<])
                wordCapture = badWord
                '
                filter = New StringBuilder(50)
                filter.Append("(?i)(\b")
                filter.Append(wordCapture)
                filter.Append("\b|(\d?)")
                filter.Append(wordCapture)
                filter.Append("(\d?)(\B|\b)[^a-zA-Z&;<])")
                '
            End If
            '
            exp = filter.ToString().Trim()
            '
            Return New Regex(exp)
            '
        End Function

pattern update:

BADWORD FILTER:

Non-escaped words:
(?i)(\b****\b|[0-9]****|****[0-9])

Escaped words:
(?i)(\b****\B|[0-9]****|****[0-9])