Помогите подкорректировать задачу, пожалуйста.

Дана матрица У(6,6). Сформировать вектор, содержащий диагональные элементы матрицы У. Отсортировать его в порядке убывания элементов. Создать подпрограмму для определения диагональных элементов матрицы.


Sub vvod()
' задание типа переменных
Dim i As Integer, j As Integer, m As Integer, z As Integer, Max As Integer
Dim A(5, 5) As Integer, B(5) As Integer
Show
For i = 0 To 4
For j = 0 To 4
A(i, j) = Int(4 * Rnd + 1) ' заполнение матрицы случайными числами
Picture1.Print A(i, j);
Next j
Picture1.Print
Next i

' вычисление максимума
For i = 0 To 4 'начало цикла
'нахождение максимума
Max = B(i)
For j = i To 4
If B(j) > Max Then
Max = B(j) ' определение максимума
z = j 'присвоение переменной значения
End If
Next j
'сортировка по убыванию
B(z) = B(i)
B(i) = Max
Picture3.Print Max
Next i 'конец цикла
End Sub


Private Sub Command1_Click()
vvod

For i = 0 To 4
For j = 0 To 4
If i = j Then B(j) = A(i, j)
End If
Next j
Next i
End Sub