             pbIsGreater = (vSortItem.sText &gt;= vItem.sText)
            Else
                pbIsGreater = (vItem.sText &gt;= vSortItem.sText)
            End If
         End If
      ElseIf bSortDate Then
         pbIsGreater = (m_tSort(iSortIndex).SortOrder = CCLOrderAscending)
      ElseIf bDate Then
         pbIsGreater = (m_tSort(iSortIndex).SortOrder = CCLOrderDescending)
      Else
         bIsEqual = True
      End If
             
       
   End Select
    
End Function
Private Function piGetSui