Прога в excel VB

[xXDooXx]

Задачу надо решить с помощью пузырькового метода сортировки
Сама задача звучит просто : Проверить, распологаются ли по возрастанию элементы массива Zn [-3, 6]...

Нашел пример модуля, в котором задействован пузырьковый метод, но по сути он отличается от задания :
Sub CommandButtom_click1()
Dim n As Integer, i As Integer, n1 As Integer
Dim x_temp As Integer
Dim Key_sort As Integer
n=Cells(2, 1) : n1 = n
ReDim x(n) As Integer
For i = 1 to n
x(i) = Int(100*Rnd)
Cells(1 + i, 2) = x(i)
Next i

PuzSort:
Key_sort = 0
For i = 1 to n1 - 1
If x(i) > x(i + 1) Then
Key_sport = 1
'swap x(i), x(i + 1)
x_temp = x(i) : x(i) = x(i +1) : x(i + 1) = x_temp
End if
Next i
For i = 1 to n : Cells(1+ i, (n - n1) + 3) = x(i) : Next i
If key_sort = 1 Then n1 = n1 - 1:
Goto PuzSort
End Sub


Нужно как то применить этот PuzSort к задаче... туплю безбожно.. просто уже сутки не сплю, а здавать завтра... котел не варит... Буду очень благодарен вашим идеям!

[xXDooXx]

Помощь все ещё нужна! Очень!!!