 tRows(iSubLoop)
                Next iSubLoop
                For iCol = 1 To iColumns
                    LSet vItems(iCol, (iSubLoop + iIncrement)) =
                     vSortItems(iCol)
                Next iCol
                LSet tRows(iSubLoop + iIncrement) = tSortRow
            Next iMainLoop
            ' Get next shell sort increment value:
            iIncrement = iIncrement - 1
            iIncrement = iIncrement \ 3
        Loop
    Else
        ' For only two items just check whether the se