Excel Vba Sort Array Multiple Choice