Public Sub MedianThreeQuickSort1(ByRef pvarArray As Variant, Optional
...
If plngLeft < lngLast Then MedianThreeQuickSort1 plngArray, plngLeft, lngLast
If lngFirst < plngRight Then...