Create Array Vbscript Substring