Как отсортировать элементы массива пузырьком в VBA?

Question

[pythel]

Задали забацать массив с 3 задачами. Первую сделали, а последние 2 не могу осилить. Почему-то не работает подсчет произведения элементов массива, расположенных между максимальным и минимальным элементами, и также нужно сделать упорядочивание пузырьком по возрастанию.

Imports System.Math
Module Module1
    Sub Main()
        Dim i, A(5) As Integer
        Dim sum As Double, p As Double
        Dim min As Integer, min_zn As Double, max As Integer, max_zn As Double
        Dim lStart As Integer, lEnd As Integer
        Dim S1, S As String
        sum = 0
        Randomize()
        For i = 0 To 5 Step 1
            A(i) = Int((5 * Rnd() + 1) - 3)
            S1 = "A(" & CStr(i) & ")=" & CStr(A(i))
            Console.WriteLine(S1)
        Next i
        For i = 0 To 5 Step 1
            If A(i) < 0 Then
                sum = sum + A(i)
            End If
        Next i
        Console.WriteLine("Сумма отрицательных элементов массива:" & CStr(sum))
        min = 0
        min_zn = A(1)
        For i = 0 To 5 Step 1
            If A(i) < min_zn Then
                min = i
                min_zn = A(i)
            End If
        Next i
        max = 0
        max_zn = A(1)
        For i = 0 To 5 Step 1
            If A(i) > max_zn Then
                max = i
                max_zn = A(i)
            End If
        Next i
        If min > max Then
            lStart = max
            lEnd = min
        Else
            lStart = min
            lEnd = max
        End If
        If lEnd - lStart = 1 Or lEnd - lStart = 0 Then
            Console.WriteLine("Между минимальным и максимальным элементами нет чисел")
        Else
            For i = lStart + 1 To lEnd - 1 Step 1
                p = p * A(i)
            Next i
            Console.WriteLine("Произведение элементов массива", CStr(p)) - <i>не выдаёт значение</i>
        End If