kimbal

Option Explicit

Sub test()
     
    Dim rbc6(5) As Double

     rbc6(0) = 5
     rbc6(1) = 6
     rbc6(2) = 3
     rbc6(3) = 111
     rbc6(4) = 2
     rbc6(5) = 1

    Call BubbleSort(rbc6)
     
End Sub

Sub BubbleSort(MyArray() As Double)
     
    Dim First           As Integer
    Dim Last            As Integer
    Dim i               As Integer
    Dim j               As Integer
    Dim Temp            As Double
    Dim List            As Double
     
    First = LBound(MyArray)
    Last = UBound(MyArray)
    For i = First To Last - 1
        For j = i + 1 To Last
            If MyArray(i) > MyArray(j) Then
                Temp = MyArray(j)
                MyArray(j) = MyArray(i)
                MyArray(i) = Temp
            End If
        Next j
    Next i
   
End Sub