Найти сумму элементов по периметру - VB

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

"Двумерный массив. Найти сумму элементов по периметру, не включая элементы побочной диагонали." Происходит ошибка вылета за пределы. Похоже, напортачил с определением "побочных" чисел (строка 19)

Sub Vice()
 
Dim i, j, n As Integer
Const m As Integer = 5
Dim Mas(1 To m, 1 To m) As Integer, PerSum, Result, S As String
    
For i = 1 To m
For j = 1 To m
n = n + 1
Mas(i, j) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " & j & "-Г© ГЅГ«ГҐГ¬ГҐГ*ГІ " & i & " -Г© Г±ГІГ°Г®ГЄГЁ")
Next j
Next i
 
For i = 1 To m
For j = 1 To m Step 1
If i = 1 Or j = 1 Or i = n Or j = m Then
PerSum = PerSum + Mas(i, j)
End If
Result = PerSum - Mas(i, n - i + 1)
Next j
Next i
 
S = S & "CГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў ГЇГ® ГЇГҐГ°ГЁГ¬ГҐГІГ°Гі, Г*ГҐ ГўГЄГ«ГѕГ·Г*Гї ГЅГ«ГҐГ¬ГҐГ*ГІГ», Г«ГҐГ¦Г*Г№ГЁГҐ Г*Г* ГЇГ®ГЎГ®Г·Г*Г®Г© Г¤ГЁГ*ГЈГ®Г*Г*Г«ГЁ  " & Result & ": "
MsgBox S
    
End Sub

Решение задачи: «Найти сумму элементов по периметру»

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

                            For i = 1 To m
For j = 1 To m
If (i = 1 Or j = 1 Or i = m Or j = m) And Abs(i - j) < (m - 1) Then
PerSum = PerSum + Mas(i, j)
End If
''''Result = PerSum - Mas(i, j)
Next j
Next i
                        