Метод сортировки пузырьком - VB

Формулировка задачи:

Здравствуйте. Такая ситуация, мне нужно создать программу для сортировки массива методом пузырька, с помощью генератора случайных чисел. Я сделал генератор случайных чисел одной кнопкой и вывожу массив в текст. А сортировку сделал другой кнопкой. И мне нужно сделать так чтобы когда я сгенерировал массив и нажав на кнопку сортировки мне под этим массивом в этом же тексте выводился уже отсортированный массив

Option Explicit
Dim n, min, max As Integer
Dim a() As Long
Dim r As Integer
 
Private Sub Command1_Click()
Dim i As Byte
Text4.Text = ""
n = Val(Text1.Text)
max = Val(Text2.Text)
min = Val(Text3.Text)
For i = 1 To n
ReDim a(i)
a(i) = Int((max - min) * Rnd() + min)
Text4.Text = Text4.Text + Str(a(i)) + vbTab
Next i
End Sub
 
Private Sub Command2_Click()
Dim k As Integer
 
Dim j As Integer
Dim y As Integer
Text4.Text = vbCrLf
For k = 1 To n
For y = 1 To n - 1
If a(i + 1) < a(i) Then
y = a(i + 1)
a(i + 1) = a(i)
a(i) = y
End If
Next y
Next k
For j = 1 To n
Next j
End Sub

Решение задачи: «Метод сортировки пузырьком»

textual
                            Листинг программы 
                        

                            Redim a(n)
For i = 1 To n
a(i) = Int((max - min) * Rnd() + min)
                        