Public Sub AddToList(ByVal Eintrag As String, MaxLenOfNum As Byte)
    Dim Zahl As String
    Dim Liste() As String
    Dim i As Long
    '??
    'Zahl auslesen
    Zahl = CStr(Val(Eintrag))
    'Zahl herausschneiden
    Eintrag = Right$(Eintrag, Len(Eintrag) - Len(Zahl))
    'Zahl mit Nullen füllen
    Zahl = String$(MaxLenOfNum - Len(Zahl), "0") & Zahl
    '??
    'Neue Zahl und den Text eintragen
    Form1.List1.AddItem Zahl & Eintrag
    '??
    'Umsortieren
    'Liste in Array speichern
    ReDim Liste(Form1.List1.ListCount - 1)
    For i = 0 To UBound(Liste)
        Liste(i) = Form1.List1.List(i)
    Next i
    'Liste löschen
    Form1.List1.Clear
    'Einträge neu eintragen lassen damit alle sortiert werden
    For i = 0 To UBound(Liste)
        Form1.List1.AddItem Liste(i)
    Next i
    'Sortierte Liste in Array speichern
    For i = 0 To UBound(Liste)
        Liste(i) = Form1.List1.List(i)
    Next i
    'Einträge vertauschen
    For i = 0 To UBound(Liste)
        Form1.List1.List(i) = Liste(UBound(Liste) - i)
    Next i
End Sub

Call AddToList("10Text", 3)