Пожалуйста помогите решить задачу по информатике в VBA

' поместите следующий код в модуль'

Option Base 1
Sub main()
Dim Z() As Long
Dim M As Integer
Dim N As Integer
N = Val(InputBox("Введите количество строк от 1 до 10 массива", "", "3"))
Select Case N
Case Is < 1
Exit Sub
Case Is <= 10
M = Val(InputBox("Введите количество столбцов от 1 до 10 массива", "", "3"))
Select Case M
Case Is < 1
Exit Sub
Case Is <= 10
Dim min As Long
Dim max As Long
Dim maxx() As Long
ReDim Z(N, M) As Long
For x = 1 To N
For y = 1 To M
Z(x, y) = Val(InputBox("Введите элемент в строке " & x & " в столбце " & y, ""))
Next y
Next x
For x = 1 To N
max = Z(x, 1)
For y = 1 To M
If Z(x, y) > max Then max = Z(x, y)
Next y
ReDim Preserve maxx(x)
maxx(x) = max
MsgBox "В строке " & x & " максимальное значение" & " " & max
Next x
min = maxx(LBound(maxx))
For x = LBound(maxx) To UBound(maxx)
If maxx(x) < min Then min = maxx(x)
Next x
MsgBox "Минимальное из максимальных " & min
Case Is > 10
MsgBox "Надо от 1 до 10"
End Select
Case Is > 10
MsgBox "Надо от 1 до 10"
End Select
End Sub

Источник: http://www.vbfaq.ru/2009/11/najti-maksimalnyj-element/