g, _
      ByVal lEnd As Long, _
      ByVal lIndentMatchLevel As Long, _
      ByRef iR As Long _
   ) As Long
Dim iP As Long
Dim bIsEqual As Boolean
Dim bGreater As Boolean
   
   If lEnd - lStart &gt; 1 Then
      iP = lStart + (lEnd - lStart) \ 2
      bGreater = pbGreaterBinSearch( _
            vItems, _
            tRows(iP).lGridCellArrayRow, _
            tRows(lMatchFor).lGridCellArrayRow, _
            tRows(iP).lGroupIndentLevel, _
            lIndentMatchLevel, _
            bIsEqual)
      If 