Excel Vba Assign Values To An Array