'Variabln und Array Deklarieren
Dim mZahlen(100) As Long
Dim k, I, Temp As Long
 
Private Sub cmdAusführen_Click()
 
For I = 1 To 5                         'Dem Array die Werte der Textfelder 
' zuweisen
 mZahlen(I) = CLng(txtZahlen(I).Text)
Next I
 
bubblesort mZahlen(), 1, 5              'Aufrufen der Prozedur
End Sub
 
 
Private Sub bubblesort(ByRef mZahlen_sortiert() As Long, ByVal l As Long, n As _
  Long)
 
For I = (5 - 1) To 0 Step -1            'Bestimmung des Anfangs- und Endpunkt, 
' dabei verläuft die Schleife rückwärst
 For k = 0 To I                         'Bestimmung des Anfangs- und Endpunkt 
 ' der Variable k
 If mZahlen(k) > mZahlen(k + 1) Then    'Wenn k größer als k+1 dann durch 
 ' Variable Temp vertauschen
 Temp = mZahlen(k)
 mZahlen(k) = mZahlen(k + 1)
 mZahlen(k + 1) = Temp
    End If
  Next k
Next I
 
 
For I = 1 To n                           'Die sortierten Zahlen in der Listbox 
' ausgeben
Zahlen_sortiert.AddItem (mZahlen(I))
Next I
 
End Sub
Private Sub cmdEnde_Click()              'Programm beenden
End
End Sub
 
Private Sub cmdNeu_Click()
Me.Zahlen_sortiert.Clear
 
End Sub