iRow2), _
            iSortIndex, bIsEqual)
      End If
      If (iSortIndex &lt; m_iSortIndexCount) And bIsEqual Then
         ' Must go to the next one
      Else
         pbGreaterBinSearch = bR
         Exit For
      End If
   Next iSortIndex
   
End Function

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

   For iSortIndex = 1 To 