Найти произведение элементов, принадлежащих вспомогательной диагонали матрицы

Option Explicit
Dim n As Integer, i As Integer, proizv As Double, maxVD As Integer, j As Integer
Dim A() As Integer, VD() As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 10    ' InputBox("Enter n")
proizv = 1
ReDim A(n, n), VD(n) ' Размеры массива А -  n-строк, n-столбцов
For i = 1 To n
   For j = 1 To n
       A(i, j) = Int(Rnd * 10 + 1) 'Заполняем массив случайными числами
       Print A(i, j); vbTab;
       Next j
   Print
   VD(i) = A(i, (n + 1) - i)
Next i
maxVD = A(1, n)
Print "Дополнительная диагональ"
  For i = n To 1 Step -1
    proizv = proizv * VD(i)
    Print VD(i);
  Next i
Print
Print "Произведение элементов дополнительной диагонали  ="; proizv
 For i = 1 To n
    If maxVD < VD(i) Then maxVD = VD(i)
 Next i
Print "Максимальный элемент дополнительной диагонали ="; maxVD
Print "Результат ="; proizv / maxVD
End Sub