        Else
            iR = IIf(bGreater, -1, 1)
            plBinSearch = lStart
         End If
      End If
   End If
   
End Function

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

   For iSortIndex = 1 To m_iSortIndexCount
      If (m_tSort(i