Create Array Vbscript If Statement