Excel Vba For Loop Store Values In An Array