Public Class StringNumericComparer
    Implements IComparer(Of String)
 
    Public Function Compare(x As String, y As String) As Integer Implements _
      IComparer(Of String).Compare
        Dim parts_x() As String = x.Split("-"c, StringSplitOptions.TrimEntries)
        Dim parts_y() As String = y.Split("-"c, StringSplitOptions.TrimEntries)
 
        Dim res As Integer = CInt(parts_x(0)).CompareTo(CInt(parts_y(0)))
 
        If res <> 0 Then Return res
 
        Return CInt(parts_x(1)).CompareTo(CInt(parts_y(1)))
    End Function
End Class

Dim vl() As String = {"0-15", "210-25", "22-68", "22-71", "0-6"}
 
Array.Sort(vl, New StringNumericComparer)
 
'oder bei Listen:
 
Dim vl2 As New List(Of String)(vl)
 
vl2.Sort(New StringNumericComparer)