Create Array Vbscript Split String