 = 1 To iColumns
                  LSet vItems(iCol, 1) = vItems(iCol, 2)
                  LSet vItems(iCol, 2) = vSortItems(iCol)
               Next iCol
            End If
         End If
    End If
    
End Sub

Private Function pbGreater( _
        ByRef vItems() As tGridCell, _
        ByRef vSortItems() As tGridCell, _
        ByVal iSubLoop As Long _
    ) As Boolean
Dim iSortIndex As Integer
Dim bIsEqual As Boolean
Dim bR As Boolean

    For iSortIndex = 1 To m_iSortIndexCount
        bR = pbIsGre