
                For iSubLoop = (iMainLoop - iIncrement) To lStartItem Step
                 -iIncrement
                    If (pbGreater(vItems(), iMainLoopRow,
                     tRows(iSubLoop).lGridCellArrayRow, bIsEqual)) Then
                        Exit For
                    End If
                    LSet tRows(iSubLoop + iIncrement) = tRows(iSubLoop)
                Next iSubLoop
                LSet tRows(iSubLoop + iIncrement) = tSortRow
            Next iMainLoop
            ' Get next shel