Vba Excel Pass Array Segment