Excel Vba Array Three Columns Sims