Пересчитать первый столбец матрицы F размерности m - VB

Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, F() As Integer, summ As Integer
Randomize 'Иницилизация генератора случайных чисел
Cls       'Очищаем форму
m = 3    ' InputBox("Enter m)
ReDim F(m, m) ' Размеры массива F -  m-строк, m-столбцов
Print "Исходный массив"
For i = 1 To m
 summ = 0
 For j = 1 To m
      F(i, j) = Int(Rnd * 11) 'Заполняем массив случайными числами
      summ = summ + F(i, j)
      Print F(i, j); vbTab;
 Next j
 F(i, 1) = summ
 Print
Next i
'Процедура вывода на печать
Print "Результат"
  For i = 1 To m
   For j = 1 To m
       Print F(i, j); vbTab;
   Next j
   Print
Next i
End Sub