
    ) As Boolean
Dim vR As Variant
Dim lR As Long
Dim sSortItemText As String, sItemText As String
Dim vSortDate As Date, vDate As Date
Dim bSortDate As Boolean, bDate As Boolean
Dim lDiff As Long

    Select Case m_eSortType(iSortIndex)
    Case CCLSortSelected
        lR = Abs(vSortItem.bSelected) - Abs(vItem.bSelected)
        bIsEqual = (lR = 0)
        If (m_eSortOrder(iSortIndex) = CCLOrderAscending) Then
            pbIsGreater = (lR &gt;= 0)
        Else
            pbIsGreater = (lR &lt;= 0)
     