Действия над двухмерным массивом - VB

Option Base 1
Private Sub Form_Load()
Dim Matrix(5, 5) As String
Dim max As Single, min As Single
Dim B() As Single, n As Integer
n = InputBox("n") 'размерность массива
For i = 1 To 5
    For j = 1 To 5
        Matrix(i, j) = Int(100 * Rnd - 50)
    Next j
Next i
max = Matrix(1, 1): min = Matrix(1, 1)
For i = 1 To 5
    For j = 1 To 5
        If Matrix(i, j) > max Then max = Matrix(i, j)
        If Matrix(i, j) < min Then min = Matrix(i, j)
    Next j
Next i
For i = 1 To n Step 2
    B(i) = max
Next
For i = 2 To n Step 2
    B(i) = min
Next
End Sub