Vba Assign Multiple Values To Array