
                ' Loop form MainLoop-Increment to 0
                For iSubLoop = (iMainLoop - iIncrement) To 1 Step -iIncrement
                    If (pbGreater(vItems(), vSortItems(), iSubLoop)) Then
                        Exit For
                    End If
                    For iCol = 1 To iColumns
                        LSet vItems(iCol, (iSubLoop + iIncrement)) =
                         vItems(iCol, iSubLoop)
                    Next iCol
                    LSet tRows(iSubLoop + iIncrement) =