Create Array Vbscript String Replace