Excel Vba Create Array And String