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