option explicit dim a, str set a = new regexp a.pattern = "[!@#$%^&*(…¥]" a.global = true str = "!#@*(&#d,sfafd。_发生的!发生地…………&……%¥" msgbox a.replace(str, "")