tem.sText)
      If (Err.Number = 0) Then
         bIsEqual = (vR = 0)
      Else
         If (IsNumeric(vSortItem.sText)) Then
            vR = 1
         ElseIf (IsNumeric(vItem.sText)) Then
            vR = -1
         Else
            vR = 0
         End If
      End If
      On Error GoTo 0
      If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then
         pbIsGreater = (vR &gt;= 0)
      Else
         pbIsGreater = (vR &lt;= 0)
      End If
        
   Case CCLSortString
      If Not (IsMissin