Excel Vba sort Numbers In Array