Excel Vba Create Array With Unique Values Of List