 (m_eSortOrder(iSortIndex) = CCLOrderAscending) Then
            pbIsGreater = (lR &gt;= 0)
        Else
            pbIsGreater = (lR &lt;= 0)
        End If
    
    Case CCLSortNumeric
        vR = Val(vSortItem.sText - vItem.sText)
        bIsEqual = (vR = 0)
        If (m_eSortOrder(iSortIndex) = CCLOrderAscending) Then
            pbIsGreater = (vR &gt;= 0)
        Else
            pbIsGreater = (vR &lt;= 0)
        End If
        
    Case CCLSortString
      If Not (IsMissing(vSortItem.sText)) Then
