Массиви в VBA

[Sparky]

Массиви в VBA

Ребята помогите в решении задачи на VBA ив редактировании кода.

Что в нем надо добавить, чтобы он заработал.
Сама задача

24. Построить вектор В, каждый элемент которого равен сумме строк матрицы G(m,m), деленной на элемент главной диагонали этой же строки.

Sub Массив()
Dim g(), b(), n As Integer, m As Integer, i As Integer, j As Integer
m = Val(InputBox("Введите m"))
ReDim g(1 To m, 1 To m), b(1 To m)
Randomize
Cells(1, 1) = "G(i,j)"
Cells(2 + i, 1) = "B(i)"
For i = 1 To m
For j = 1 To m
Sum = Sum + g(i, j)
Next
b(i) = Sum / g(i, i)
Sum = 0
Next
End Sub

За ранние благодарен