Технический форум - Массиви в 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

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