Найти сумму элементов в крайних рядах матрицы - VB

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

Здравствуйте, помогите пожалуйста составить программу на visual basic Условие звучит так: -Ввести значение переменной n.Ввести значение m. Вести матрицу А() в которой n-количество строк,m-количество столбцов - Найдите сумму элементов, расположенных в крайних рядах матрицы. первую часть программы я составила

sub
dim n%, m%, i%,j%, A as double
n=inputBox(''введите n")
m=inputBox(''введите m")
redim A(1 to n, 1 to m)
for i=1 to n step 1
for j=1 to m step 1
next j
next i

помогите,пожалуйста, составить вторую часть программы,только по-подробнее распишите, и исправьте, если есть ошибки в этой.

Решение задачи: «Найти сумму элементов в крайних рядах матрицы»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim n As Integer, m As Integer, i As Integer, j As Integer, A() As Double
Dim sum  As Double
Randomize
      
      n = InputBox("Введите количество строк n = ", , 4)
      m = InputBox("Введите количество столбцов m =", , 5)
      ReDim A(1 To n, 1 To m)
      
      For i = 1 To n
          For j = 1 To m
             A(i, j) = InputBox("Введите А(" & i & "," & j & ") = ", , Int(Rnd * 9 + 1))
             Print A(i, j);
          Next j
          Print
      Next i
 
      For i = 1 To n
          For j = 1 To m Step 1
               If i = 1 Or j = 1 Or i = n Or j = m Then
                    sum = sum + A(i, j)
               End If
          Next j
      Next i
      Print "Сумма элементов в крайних рядах матрицы равна " & sum
 
      
End Sub
                        