Vba Declare Variable And Assign Value To Array