Excel Vba Fill Cells From Array To String