Do Until RegExA.Test(sInputString) = False
        Set oBadWordCollection = RegExA.Execute(sInputString)
            sReplace = oBadWordCollection.Item(0).SubMatches(0) & " "
            sInputString = Replace(sInputString, sReplace, "")
    Loop