Fjern forbudte ord fra streng

Hejsa,

Jeg forsøger at lave en funktion, som erstatter bandeord og lign fra en streng. Jeg har forsøgt nedenstående regEx men det fanger også dele af ord, så hvis man sætter "pis" som ulovligt ord bliver "piske" til "#####ke"

        exclude = "fyord|fyord2|fyord3|fyord4"
        Set regEx = New RegExp
        regEx.Global = True
        regEx.IgnoreCase = True

        regEx.Pattern = "(^|[^a-z])" & exclude & "([^a-z]|$)"
        str = regEx.Replace (str, "######")
        Set regEx = Nothing



Performance er ret vigtigt, så 100 replace-funktioner er ikke så fedt....hvem kan hjælpe?