Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim test As New List(Of String)
        Dim test2 As New List(Of String)
 
        test.Add("0-15")
        test.Add("210-25")
        test.Add("22-68")
 
        For Each value In test
 
            test2.Add(Format(CInt(Strings.Left(value, InStr(value, "-") - 1)), _
              "000“) & "-" &
                Format(CInt(Replace(value, Strings.Left(value, InStr(value, _
                "-")), "")), "000"))
 
        Next
 
        test2.Sort()
 
        For Each value In test2
 
            Debug.Print(value)
 
        Next
 
    End Sub

000-015
022-068
210-025

        For Each value In test2
 
            value = CInt(Strings.Left(value, 3)).ToString & "-" & CInt( _
              Strings.Right(value, 3)).ToString
            Debug.Print(value)
 
        Next

0-15
22-68
210-25

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)