Написать программу формирования вектора столбца В из максимумов по каждой строке матрицы - VB

Private Sub Command1_Click()
Randomize
Dim matrix() As Integer
Dim b() As Integer
Dim max As Integer
m = 3
n = 4
ReDim matrix(m, n)
ReDim b(m)
For i = 1 To m
    Print
   
    For j = 1 To n
               
        matrix(i, j) = Rnd * 10 + 1
        If j = 1 Then
            max = matrix(i, j)
        End If
        If matrix(i, j) > max Then
            max = matrix(i, j)
        End If
        
        Print matrix(i, j);
    Next j
    b(i) = max
    
Next i
    Print
For i = 1 To m
    Print b(i)
Next
 
End Sub