g(vItem.sText)) Then
         sItemText = vItem.sText
      End If
      bIsEqual = (vSortItem.sText = vItem.sText)
      If Not (bIsEqual) Then
         If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then
            pbIsGreater = (vSortItem.sText &gt;= vItem.sText)
         Else
            pbIsGreater = (vItem.sText &gt;= vSortItem.sText)
         End If
      Else
         pbIsGreater = True
      End If
        
   Case CCLSortDateYearAccuracy
      If IsDate(vSortItem.sText) Then
         vSor