l sort increment value:
            iIncrement = iIncrement - 1
            iIncrement = iIncrement \ 3
        Loop
    Else
        ' For only two items just check whether the second should
        ' be swapped with the first:
        '    Fix - last version caused GPF as it fell off the end
        '    of the array..
        If (iItemCount = lStartItem + 1) Then
            'For iCol = 1 To iColumns
            '   LSet vSortItems(iCol) = vItems(iCol, lStartItem)
            'Next iCol
            If (p