Упорядочить по убыванию элементы каждого столбца матрицы

Private Sub Command1_Click()
Cls
Randomize
Dim Mat(4, 5) As Double
Dim A3(4) As Double
Dim A1(4) As Double
Dim A2(4) As Double
Dim A4(4) As Double
Dim A5(4) As Double
' создаем матрицу и выводим ее
For I = 0 To 3
  For J = 0 To 4
   Mat(I, J) = Int(Rnd * 9)
   Print Mat(I, J); ;
  Next J
   Print
Next I
   Print
For I = 0 To 3
 A1(I) = Mat(I, 0) 'создаем дополнительные массивы для сортировки
 A2(I) = Mat(I, 1)
 A3(I) = Mat(I, 2)
 A4(I) = Mat(I, 3)
 A5(I) = Mat(I, 4)
Next I
   Print
A1(4) = BubbleSort(A1(), 4) 'отправляем на сортировку
A2(4) = BubbleSort(A2(), 4)
A3(4) = BubbleSort(A3(), 4)
A4(4) = BubbleSort(A4(), 4)
A5(4) = BubbleSort(A5(), 4)
 
For I = 0 To 3
  Print A1(I); ; A2(I); ; A3(I); ; A4(I); ; A5(I)
Next I
End Sub
 
Public Function BubbleSort(ByRef Arr() As Double, ByRef N As Long) As Double
    Dim I As Long
    Dim J As Long
    Dim Tmp As Double
 
    For I = 0# To N - 1# Step 1
        For J = 0# To N - 2# - I Step 1
            If Arr(J) < Arr(J + 1#) Then
                Tmp = Arr(J)
                Arr(J) = Arr(J + 1#)
                Arr(J + 1#) = Tmp
            End If
        Next J
    Next I
    BubbleSort = Arr(4)
End Function

Private Sub Command1_Click()
    Cls
    Randomize
    Dim Mat(1 To 4, 1 To 5) As Double, i As Integer, j As Integer, k As Integer, tmp As Integer
    ' создаем матрицу и выводим ее
    For i = 1 To UBound(Mat, 1)
      For j = 1 To UBound(Mat, 2)
         Mat(i, j) = Int(Rnd * 9)
         Print Mat(i, j); ;
      Next j
      Print
    Next i
    Print
    For k = 1 To UBound(Mat, 2)
           For i = 1 To UBound(Mat, 1)
              For j = 1 To UBound(Mat, 1) - i
                If Mat(j, k) < Mat(j + 1, k) Then
                    tmp = Mat(j, k)
                    Mat(j, k) = Mat(j + 1, k)
                    Mat(j + 1, k) = tmp
                End If
            Next j
        Next i
    Next k
    For i = 1 To UBound(Mat, 1)
        For j = 1 To UBound(Mat, 2)
            Print Mat(i, j); ;
        Next j
        Print
    Next i
End Sub