Excel Vba Write Values To Array Definition Math