Excel Vba Create Array With Unique Values Mapping Inequality