Bubblesort verfahren

[Safi]

hi,
ich muss bald ein Referat über das Bubblesortverfahren halten und muss dabei 5 Zahlen eingeben die sortiert werden. Das Programm funktioniert, aber ich wollte wissen wie ich den Inhalt der Textfelder löschen kann wenn ich auf den Button "Neu" drücke. Und vllt könnt ihr noch die Kommentare ergänzen oder verbessern.

'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

MFG
Sami Khan