Filtrar palavrões

Galera peço mais uma vez HELP!

Tenho um fórum que começou a bombar e já não consigo mais moderar comentários (E a galera é feroz, solta o verbo mesmo).

Consegui essa função na net que filtra palavras indesejadas (palavrões):

texto="computador babaca "
response.write FiltraPalavras(texto)

Function FiltraPalavras(texto)

sFiltro = "babaca|#@?$%~"
sTrataPalavras = Split(sFiltro, "|")

For i = 0 to Ubound(sTrataPalavras)
texto= Replace(texto, sTrataPalavras(i), String(Len(sTrataPalavras(i)),"*"), 1,-1,1)
Next

FiltraPalavras = texto
End Function

Só que essa função como todas as outras que achei na net corta a palavra, tipo:

computador fica assim: com****dor

Pesquisei e achei algumas coisas em inglês falando sobre FAZER COM EXPRESSÕES REGULARES, alguém sabe pelo menos como começar isso.

Com somente replace e nesta função já tentei de tudo.

Alguém tem alguma idéia?

OBS: O imasters fez o que eu quero filtrou P*** por #@?$%~