Vba Excel Sort Variant Array Initialization