Произведение элементов на побочной диагонали и сумму элементов главной диагонали

Sub Mynoizer()
Dim a(), b()
Dim i&, j&, n&
Dim s#, p#
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    
    'вводим размер матрицы, например: 5
    On Error Resume Next
    n = Int(InputBox("Введите порядок матрицы", "Ввод числа"))
    If Err Then
        Err.Clear
        MsgBox "Введите целое число от 1 до 10", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To n)
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = (20 * Rnd) + 1
        Next
    Next
    Cells(1, 1).Resize(n, n) = a
    
    'считаем произведение по элементам побочной диагонали
    For i = 1 To n
        j = n - i + 1
        Cells(i, j).Interior.Color = vbBlue
        p = IIf(p = 0, a(i, j), p * a(i, j))
      Next
    Cells(n + 3, 6) = p
    Cells(n + 3, 1) = "Произведение по эл-м побочной диагонали p = "
    
   'считаем сумму по элементам главной диагонали
    For i = 1 To n
        j = i
        Cells(i, j).Interior.Color = vbGreen
        s = IIf(s = 0, a(i, j), s + a(i, j))
    Next
    Cells(n + 5, 5) = s
    Cells(n + 5, 1) = "   Сумма по эл-м главной диагонали s = "
        
    End Sub

Option Explicit
Private Sub Form_Activate()
Dim a(), b()
Dim i&, j&, n&
Dim s#, p#
'--------------------
    'ActiveSheet.UsedRange.EntireRow.Delete
    
    'вводим размер матрицы, например: 5
    On Error Resume Next
    n = Int(InputBox("Введите порядок матрицы", "Ввод числа"))
    If Err Then
        Err.Clear
        MsgBox "Введите целое число от 1 до 10", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To n)
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = (20 * Rnd) + 1
        Next
    Next
    'Cells(1, 1).Resize(n, n) = a
    
    'считаем произведение по элементам побочной диагонали
    For i = 1 To n
        j = n - i + 1
        'Cells(i, j).Interior.Color = vbBlue
        p = IIf(p = 0, a(i, j), p * a(i, j))
      Next
    'Cells(n + 3, 6) = p
    'Cells(n + 3, 1) = "Произведение по эл-м побочной диагонали p = "
    Print "Произведение по эл-м побочной диагонали p = "; p
   
   'считаем сумму по элементам главной диагонали
    For i = 1 To n
        j = i
        'Cells(i, j).Interior.Color = vbGreen
        s = IIf(s = 0, a(i, j), s + a(i, j))
    Next
    'Cells(n + 5, 5) = s
    'Cells(n + 5, 1) = "   Сумма по эл-м главной диагонали s = "
    Print "   Сумма по эл-м главной диагонали s = "; s
End Sub

Option Explicit
Private Sub Command1_Click()
    Dim a(), b(), i&, j&, n&, sum#, p#, x#, y#
    Do
      n = Val(InputBox("Введите порядок матрицы", "Ввод числа", 14))
    Loop Until n > 0
    ReDim a(1 To n, 1 To n)
    Randomize
    Cls
    Me.AutoRedraw = True
    p = 1
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Round(20 * Rnd + 1, 2)
            x = CurrentX: y = CurrentY
            If i = j Then
               Line (x, y)-(x + 500, y + 200), RGB(150, 150, 255), BF
               PSet (x, y)
            ElseIf j = n - i + 1 Then
               Line (x, y)-(x + 500, y + 200), RGB(255, 150, 150), BF
               PSet (x, y)
            End If
            Print a(i, j) & vbTab;
        Next
        sum = sum + a(i, i)
        p = p * a(i, n - i + 1)
        Print
    Next
    Print
    Print "Произведение по эл-м побочной диагонали p = " & p
    Print "Сумма по эл-м главной диагонали = " & sum
End Sub

Option Explicit
Private Sub Form_Activate()
Dim a(), b()
Dim i&, j&, n&
Dim s#, p#
 
    'вводим размер матрицы, например: 5
    On Error Resume Next
    n = Int(InputBox("Введите порядок матрицы", "Ввод числа"))
    If Err Then
        Err.Clear
        MsgBox "Введите целое число от 1 до 10", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To n)
    Randomize
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Int(20 * Rnd) + 1
            Text1.Text = Text1.Text + Format(a(i, j), " 0.0")
        Next
    Next
        
    'считаем произведение по элементам побочной диагонали
    For i = 1 To n
        j = n - i + 1
        p = IIf(p = 0, a(i, j), p * a(i, j))
      Next
    Print "Произведение по эл-м побочной диагонали p = "; p
   
   'считаем сумму по элементам главной диагонали
    For i = 1 To n
        j = i
        s = IIf(s = 0, a(i, j), s + a(i, j))
    Next
    Print "   Сумма по эл-м главной диагонали s = "; s
End Sub