Anzahl = ListBox1.Items.Count() - 1
 
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim m As Integer
 
        For k = 0 To Anzahl
            Feld(k) = ListBox1.Items.Item(k)
        Next
 
        For i = 0 To Anzahl
            For j = i + 1 To Anzahl
                If Feld(j) < Feld(i) Then
                    m = i
                    i = j
                    j = m
                End If
            Next
        Next
 
        For i = 0 To Anzahl
            ListBox2.Items.Add(Feld(i))
        Next