Сформировать одномерный массив из произведений max и min значений матрицы - VB

Dim intM(1 To 5, 1 To 5) As Single
Dim Mas(1 To 5) As Single
Dim h As Single
Dim max As Single, min As Single
 
Private Sub Command1_Click()
Open "C:/Matrix.txt" For Output As #1
For i = 1 To 5
    For j = 1 To 5
        intM(i, j) = Val(InputBox("Введите элемент матрицы (" & i & ";" & j & "):", "ввод элемента матрицы")):
    Next j
Next i
For i = 1 To 5
    max = intM(i, 1)
    min = intM(i, 1)
    For j = 2 To 5
        If intM(i, j) > max Then max = intM(i, j)
        If intM(i, j) < min Then min = intM(i, j)
    Next j
    h = min * max
    Mas(i) = h
    Print #1, Mas(i)
Next i
Close #1
End Sub