Class CompareRelation
        Implements IComparable(Of CompareRelation)
 
        Public Property R0 As Integer
        Public Property R1 As Integer
 
        Public ReadOnly Property Relation As Double
            Get
                Return R1 / R0
            End Get
        End Property
 
        Public Function CompareTo(other As CompareRelation) As Integer _
            Implements System.IComparable(Of CompareRelation).CompareTo
            Return Me.Relation.CompareTo(other.Relation)
        End Function
    End Class

'Die Daten (hier: in Arrays, Datatable-Spalten entsprechend)
 Dim R0() As Integer = {10, 10, 10, 10, 7, 11, 9, 7, 10, 10, 10}
 Dim R1() As Integer = {40, 38, 37, 35, 24, 37, 29, 22, 36, 39, 33}
 
'Eine Liste, deren Elemente Instanzen der Vergleichsklasse sind
Dim R0R1 As New List(Of CompareRelation)
'Liste mit Werten füllen
For i As Integer = 0 To R0.Length - 1
   R0R1.Add(New CompareRelation With {.R0 = R0(i), .R1 = R1(i)})
Next i
 
'Liste sortieren
R0R1.Sort()
R0R1.Reverse()