Посчитать сумму чисел на главной диагонали матрицы - VB

Формулировка задачи:

задание состоит в том что нужно: заполнить таблицу строками m и столбцами n при помощи InputBox потом посчитать сумму чисел на главной диагонали вот что получилось,а как посчитать по диагонали я не могу понять

                    Листинг программы
                
 
                        
                          
                    
Sub Pt2()
Dim i As Integer
Dim j As Integer
Dim m As Integer
Dim n As Integer
m = InputBox("Введите количество чисел в столбце", _
"Количество нечётных чисел")
n = InputBox("Введите количество чисел в строке", _
"Количество нечётных чисел")
For i = 1 To n Step 1 '(сумма нечётных чисел от 1 до n)
For j = 1 To m Step 1
      Cells(j, i) = InputBox("Ведите значение в ячейку " & Chr(64 + i) & j, _
"Ввод данных в таблицу")
    Next j
Next i
End Sub

Решение задачи: «Посчитать сумму чисел на главной диагонали матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, sum As Integer, A() As Integer
n = InputBox("Введите размер матрицы", "Ввод данных", 3)
ReDim A(1 To n, 1 To n)
For i = 1 To n
     For j = 1 To n
       A(i, j) = InputBox("Ведите значение элемента  A(" & i & "," & j & ")", _
       "Ввод данных")
       If i = j Then sum = sum + A(i, j)
       Print A(i, j); vbTab;
     Next j
     Print
Next i
Print "Сумма элементов главной диагонали = " & sum
End Sub