Excel Vba Create Array And Add Values In A List