Censursystem

Jag har gjort ett forum och lagt upp på min hemsida.
50% av det som skrivs i forumet är skitsnack om min sida så därför skulle jag vilja ha ett censursystem. Hur gör jag för att stoppa att ett inlägg inehåller tex ordet bajs?

Tack på förhand

Dim word, words, ok, meddelande
meddelande = "Du är mongo, din j*vla bajs"
ok = true
words = array("bajs", "***")
For Each Word In Words
If Instr(meddelande, Word) > 0 Then ok = false
Next

If ok Then
'posta meddelande
Else
Response.Write "Du är äcklig"
End If

------------------
/bohlin
kaffe är djävulens dryck
glögg är guds dryck

Tack!!!