vbscript replace special characters in a string