All pastes #370562 Raw Edit

Something

public text v1 · immutable
#370562 ·published 2007-02-24 18:23 UTC
rendered paste body
    Do Until RegExA.Test(sInputString) = False
        Set oBadWordCollection = RegExA.Execute(sInputString)
            sReplace = oBadWordCollection.Item(0).SubMatches(0) & " "
            sInputString = Replace(sInputString, sReplace, "")
    Loop