カスタムCollectionクラスで複数列のソート

Public Calss CarList
〜
End Class

Public Class CarListCollection
  inherits CollectionBase
〜
'引数には「MODEL_YEAR DESC,CAR_NAME ASC」といったように複数項目をカンマで区切ってわたしています
  Public Sub Sort(ByVal strSortOrders As String)
　  Dim strSort As String
    Dim strArraySort() = strSortOrders.Split(",")
 
    For Each strSort In strArraySort
       Dim strSortOrder() = strSort.Split(" ")
       Dim classComparer As New ClassComparer(strSort(0),StrSort(1))
       InnerList.Sort(classComparer)
    Next
  End Sub
End Class

Public Class ClassComparer
   ImPlements IComparer
〜
  Public Sub New(Byval strSortPropertyName As String,ByVal strSortOrder As String)
〜
　End Sub

  Puclic Function Comparer(ByVal As Object,ByVal As Object)As Integer Implements IComparer.Comparer
    Dim carList1 As New CType(x,CarList)
    Dim carList2 As New CType(y,CarList)
〜
    Select Case Me._sortOrder
        Case "ASC"
            Rerutn carLst1.GetProperty(Me._sortPropertyName) < carList2.GetProperty(Me._sortPropertyName)
        Case "DESC"
            Rerutn carLst1.GetProperty(Me._sortPropertyName) > carList2.GetProperty(Me._sortPropertyName)
    End Select
  End Function
End Class

Public Sub New(ByVal condition1 As String, ByVal condition2 As String, ByVal order As String)
   ...
End Sub
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
   ...
   Dim xValue1 = xItem.GetValue(condition1)
   Dim yValue1 = yItem.GetValue(condition1)
   If xValue1 = yValue1
      Return xItem.GetValue(condition2) - yItem.GetValue(condition2)
   Else
      ...
   End If
End Function