Для заданной матрицы NxN определить произведение элементов, расположенных на главной диагонали - VB

Private Sub Command1_Click()
    Dim A() As Single
    Dim n As Integer, i As Integer, j As Integer
    Dim S As Single, P As Double, St As String
    n = InputBox("Введите размер квадратной матрицы  n =", "Ввод данных ", 5)
    ReDim A(1 To n, 1 To n)
    P = 1
    Randomize ' Инициализация генератора случайных чисел
    St = "Матрица" & vbCrLf
    For i = 1 To n
         For j = 1 To n
              A(i, j) = Int(Rnd * 9 + 1)  'заполняем матрицу случайными числами
              'Следующая строка нужна, если требуется заполнение матрицы вручную
              'A(i, j) = InputBox("Введите A(" & i & "," & j & ")", "Ввод данных ", Int(Rnd * 9  + 1))
              St = St & A(i, j) & vbTab
         Next j
         St = St & vbCrLf
    Next i
    
    If n Mod 2 = 0 Then
            For i = 1 To n
                 S = S + A(i, i)         'Считаем сумму элементов на главной диагонали
            Next i
            St = St & "n - чётное" & vbCrLf & "Сумма элементов на главной диагонали   " & S
     Else
            For i = 1 To n
                 P = P * A(i, n - i + 1) 'Вычисляем произведение элементов побочной диагонали
            Next i
            St = St & "n - нечётное" & vbCrLf & "Произведение элементов побочной диагонали   " & P
     End If
    
    MsgBox St
    Print St
End Sub