Date = DateSerial(Year(vItem.sText), Month(vItem.sText),
          Day(vItem.sText))
         bDate = True
      End If
      If (bSortDate) And (bDate) Then
         bIsEqual = (vDate = vSortDate)
         If Not (bIsEqual) Then
            If (m_eSortOrder(iSortIndex) = CCLOrderAscending) Then
                pbIsGreater = (vSortItem.sText &gt;= vItem.sText)
            Else
                pbIsGreater = (vItem.sText &gt;= vSortItem.sText)
            End If
         End If
      ElseIf bSortDate Then
   