Пересчитать первую строку матрицы W - VB

Option Explicit
Dim i As Integer, j As Integer
Dim m As Integer, n As Integer
Dim W() As Double
Dim Temp As Double
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
n = 4    ' InputBox("Enter n")
m = 7    ' InputBox("Enter m")
ReDim W(n, m) ' Размеры массива А -  n-строк, m-столбцов
For i = 1 To n
 For j = 1 To m
    W(i, j) = Int(Rnd * 10 + 1) 'Заполняем массив случайными числами
    Print W(i, j); vbTab;
 Next j
 Print
Next i
 
 Print
 
For j = 1 To m
 Temp = 1
 For i = 1 To n
    Temp = Temp * W(i, j)
 Next i
  W(1, j) = Temp
Next j
 
Print "Новый массив"
 
For i = 1 To n
 For j = 1 To m
     Print W(i, j); vbTab;
 Next j
 Print
Next i
 
End Sub