Вывести вектор В, который состоит из сумм по строкам простых чисел - VB

Private Sub Command1_Click()
Dim a() As Integer, b() As Integer
Form1.Cls
Randomize
m = Int(Rnd(1) * 5 + 2)
n = Int(Rnd(1) * 5 + 2)
Print "матрица а"
ReDim a(1 To m, 1 To n), b(1 To m)
For i = 1 To m
For j = 1 To n
 a(i, j) = Int(Rnd(1) * 9 + 1)
 b(i) = b(i) + a(i, j)
 Print a(i, j);
Next j
Print
Next i
Print
 
Print "вектор в"
For i = 1 To m
 Print b(i)
Next i
 
End Sub