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

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

Помогите пожалуйста задачу решить: В программе должны быть описаны, а при выполнении программы последовательно вызваны три подпрограммы-процедуры: Bbod – ввод исходных данных; Solution – решение (входные параметры этой процедуры являются выходными параметрами процедуры Bbod); Result – вывод результатов (передачу параметров в эту процедуру организовать за счет их глобального описания). Формальные и фактические параметры процедур должны иметь разные имена. ЗАДАЧА Поэлементно ввести двумерный массив (3х3) целых чисел. Вычислить сумму квадратов всех элементов массива и корень квадратный этой суммы. С массивом все в порядке и программа все считает, а вот с остальным не знаю как быть.

                    Листинг программы
                
 
                        
                          
                    
Sub Bbod()
mass = ""
Dim A(1 To 3, 1 To 3) As Long
For i = 1 To 3
For j = 1 To 3
A(i, j) = InputBox("введите элемент массива", "введите элемент массива")
mass = mass & A(i, j) & " "
Next j
mass = mass & vbCrLf
Next i
MsgBox mass
 
summ = 0
For i = 1 To 3
For j = 1 To 3
summ = summ + A(i, j) ^ 2
Next j
Next i
kor = Sqr(summ)
MsgBox "сумма элементов:" & summ
MsgBox "квадратный корень =" & kor
 
End Sub

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
[BASIC]Option Explicit
 
Dim A(1 To 3, 1 To 3) As Long
Dim I, J
Dim mass
 
Sub Программа()
Bbod
Solution
Result
End Sub
 
Sub Bbod()
mass = ""
For I = 1 To 3
For J = 1 To 3
A(I, J) = InputBox("введите элемент массива", "введите элемент массива")
mass = mass & A(I, J) & " "
Next J
mass = mass & vbCrLf
Next I
MsgBox mass
 End Sub
 
Sub Solution()
summ = 0
For I = 1 To 3
For J = 1 To 3
summ = summ + A(I, J) ^ 2
Next J
Next I
kor = Sqr(summ)
 End Sub
 
Sub Result()
MsgBox "сумма элементов:" & summ
MsgBox "квадратный корень =" & kor
 
End Sub
[/BASIC]