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

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

"Дан двумерный массив: 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 Нужно найти отдельно сумму элементов 3-ей строки и 3-его столбца, потом первое разделить на второе, и в диалоговом окне вывести исходный массив, сумму искомых строки и столбца и результат деления." Помогите с кодом!

Sub Zero()
 
Dim i, j, n, k, DelSum As Integer
Const m As Integer = 4 'размерность массива
Dim Mas(1 To m, 1 To m) As Integer
Dim Sum1, Sum2, 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
S = S & Mas(i, j) & " ; "
Next j
S = S & Chr(13)
Next i
 
Sum1 = 0
For i = 3 To 3   '3-ая строка
For j = 1 To m
Sum1 = Sum1 + Mas(i, j)  'сумма элементов 3-ей строки
Next j
Next i
 
Sum2 = 0
For i = 1 To m
For j = 3 To 3     '3-ий столбец
Sum2 = Sum2 + Mas(i, j) 'сумма элементов 3-его столбца
Next i
 
DelSum = Sum1 / Sum2
 
MsgBox S & " , " & Summa1 & " , " & Summa2 & " , " & DelSum
End Sub

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

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

                            Sub Zero()
    Dim Sum1 As Integer, Sum2 As Integer, DelSum As Single
    Dim i As Integer, j As Integer, m As Integer
    Const n As Integer = 4  ' размерность массива
    Dim Mas(1 To n, 1 To n) As Integer, S As String
 
    S = "Исходный массив" & vbCrLf
    'вводим массив
    For i = 1 To n
          For j = 1 To n
                m = m + 1: If m = 10 Then m = 1 'Это чтобы не заполнять массив вручную
                Mas(i, j) = InputBox("Введите  Mas (" & i & ", " & j & ")", , m)
                S = S & Mas(i, j) & vbTab
          Next j
          S = S & vbCrLf
    Next i
 
    'находим сумму третьей строки
    For i = 1 To n
            Sum1 = Sum1 + Mas(3, i)
    Next i
 
    'находим сумму третьего столбца
    For i = 1 To n
            Sum2 = Sum2 + Mas(i, 3)
    Next i
 
    'находим частное от деления Sum1 на Sum2
    DelSum = Sum1 / Sum2
 
    S = S & "Сумма элементов 3-ей строки " & Sum1 & vbCrLf
    S = S & "Сумма элементов 3-его cтолбца " & Sum2 & vbCrLf
    S = S & "Частное от деление сумм элементов " & DelSum
 
    MsgBox S
End Sub
                        