ortIndex).SortOrder = CCLOrderAscending) Then
            pbIsGreater = (lR &gt;= 0)
        Else
            pbIsGreater = (lR &lt;= 0)
        End If
    
    Case CCLSortBackColor
      lR = vSortItem.oBackColor - vItem.oBackColor
      bIsEqual = (lR = 0)
      If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then
         pbIsGreater = (lR &gt;= 0)
      Else
         pbIsGreater = (lR &lt;= 0)
      End If
    
   Case CCLSortNumeric
      On Error Resume Next
      vR = Val(vSortItem.sText - vI