Create Array Vbscript Replace