Private Sub Form_Load()
    Dim i As Long
    Dim Liste() As String
    '??
    With List1
        .AddItem "0100;Text"
        .AddItem "0001;Text"
        .AddItem "0010;Text"
        .AddItem "1000;Text"
    End With
    '??
    'Da die Sortierfunktion von Oben nach Unten sortiert,
    'müssen die Einträge noch umgedreht werden
    ReDim Liste(List1.ListCount - 1) As String
    For i = 0 To UBound(Liste)
        Liste(i) = List1.List(i)
    Next i
    For i = UBound(Liste) To 0 Step -1
        List1.List(i) = Liste(UBound(Liste) - i)
    Next i
End Sub