Найти одномерный массив состоящий из элементов двумерного массива представляющих собой суммы чисел

Option Explicit
Option Base 1
DefStr J, S: DefLng F, I, L
'
'   Доктор Зильгерман
'
Private Function prim$()
    Const c = 10, x = 5, y = 7
    Dim j(), fx, fy, sMatrix, i, sum#
    Dim matrix&(x, y)
    sMatrix = _
    " 4 4 4 4 4 4 4" & _
    " 4 3 3 3 3 3 4" & _
    " 4 3 2 2 2 3 4" & _
    " 4 3 3 3 3 3 4" & _
    " 4 4 4 4 4 4 4"
    j = Split(Mid$(sMatrix, 2))
    For fx = 1 To x 'Заполняем матрицу значениями
        Mid$(sMatrix, (fx - 1) * y * 2 + 1, y * 2) = _
        InputBox("Юзер! введи свой диапазон для " & fx, , Mid$(sMatrix, (fx - 1) * y + 1, y * 2))
        For fy = 1 To y
            matrix(fx, fy) = j(i): i = i + 1
        Next
    Next
    
    For fx = 1 To x
        For fy = fx To y
            sum = sum + matrix(fx, fy)
            prim = prim & "sum matrix x(" & fx & "," & fy & ") =" & sum & vbCrLf
        Next
        sum = 0
    Next
End Function
 
Private Sub Form_Load()
    MsgBox prim
    End
End Sub

For i = 1 to n
 for j = 1 to m
  B(5-A(i,j)) = B ( 5- A(i,j)) + A ( i,j)
 Next j 
Next i

Dim A(100, 100) As Integer
Dim i As Integer
Dim j As Integer
Dim Max As Integer
Dim Min As Integer
 
Randomize
Max = 1
Min = 9
MAS = ""
For i = 1 To Strok
 For j = 1 To Stolb
  A(i, j) = Int(Rnd() * (Max - Min)) + Min
  MAS = MAS + Str(A(i, j))
 Next j
 MAS = MAS + Chr(13)
Next i

Private Sub Command1_Click()
Dim A() As Integer, B() As Integer, Mas As String
Dim i As Integer, j As Integer
Dim Max As Integer, Min As Integer
Dim Strok As Integer, Stolb As Integer 
Strok = InputBox("Strok = ", , 10)
Stolb = InputBox("Stolb = ", , 10)
ReDim A(Strok, Stolb)
    Randomize
    Min = 1: Max = 9: Mas = "Двумерный массив" & Chr(13)
    For i = 1 To Strok
        For j = 1 To Stolb
            A(i, j) = Int(Rnd() * (Max - Min + 1)) + Min
            Mas = Mas & Str(A(i, j)) & vbTab
        Next j
        Mas = Mas & Chr(13)
    Next i
    ReDim B(1 To Max - Min + 1)
    For i = 1 To Strok
         For j = 1 To Stolb
                 B(A(i, j) - Min + 1) = B(A(i, j) - Min + 1) + A(i, j)
         Next j
    Next i
    Mas = Mas & Chr(13) & "Одномерный массив" & Chr(13)
    For i = 1 To Max - Min + 1
        Mas = Mas & B(i) & vbTab
    Next i
    
    MsgBox Mas
End Sub

 For i = 1 To Strok
         For j = 1 To Stolb
                 B(A(i, j) - Min + 1) = B(A(i, j) - Min + 1) + A(i, j)
         Next j
    Next i

Private Sub Command1_Click()
Dim A() As Integer, B() As Integer, Mas As String
Dim i As Integer, j As Integer
Dim Max As Integer, Min As Integer
Dim Strok As Integer, Stolb As Integer
Strok = InputBox("Strok = ", , 5)
Stolb = InputBox("Stolb = ", , 7)
ReDim A(Strok, Stolb)
    Randomize
    Min = 1: Max = 9: Mas = "Двумерный массив" & Chr(13)
    For i = 1 To Strok
        For j = 1 To Stolb
            A(i, j) = Int(Rnd() * (Max - Min + 1)) + Min
            Mas = Mas & Str(A(i, j)) & vbTab
        Next j
        Mas = Mas & Chr(13)
    Next i
     
    Do
         k = k + 1
         ReDim Preserve B(1 To k)
         For i = k To Strok - (k - 1)
            For j = k To Stolb - (k - 1)
                 If j = k Or i = k Or i = (Strok - (k - 1)) Or j = (Stolb - (k - 1)) Then
                     B(k) = B(k) + A(i, j)
                 End If
             Next j
         Next i
    Loop Until (k > Strok \ 2) Or (k > Stolb \ 2)
    
    Mas = Mas & Chr(13) & "Одномерный массив" & Chr(13)
    For i = 1 To UBound(B)
        Mas = Mas & B(i) & vbTab
    Next i
    
    MsgBox Mas
End Sub