r(vSortItem.sText),
          Minute(vSortItem.sText), 0)
         bSortDate = True
      End If
      If IsDate(vItem.sText) Then
         vDate = DateSerial(Year(vItem.sText), Month(vItem.sText),
          Day(vItem.sText)) + TimeSerial(Hour(vItem.sText),
          Minute(vItem.sText), 0)
         bDate = True
      End If
      If (bSortDate) And (bDate) Then
         bIsEqual = (vDate = vSortDate)
         If Not (bIsEqual) Then
            If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then
   