Найти мин и макс значения в двумерном массиве - VB

Формулировка задачи:

"Нужно ввести двумерный массив: 1 2 3 4 5 6 7 8 9 Найти мин значение 2-ой строки и макс значение 3-его столбца." Задача простейшая, но мне не хватает элементарных знаний по синтаксису. Что выходит:

Sub Vice()
Dim min, max, i, j As Integer, Mas(n) As Integer 
Const n = 3 ///это размерность массива
 
///далее я пытаюсь ввести массив, но получается странность...по-моему здесь можно проще сделать, 
даже не юзая val, только как?
For i = 1 To n
 a(i) = Val(InputBox("Вводим " + Str(i) + _
 "-й элемент"))
Next
For j = 1 To n
 a(i) = Val(InputBox("Вводим " + Str(j) + _
 "-й элемент"))
 Next
End Sub

Помогите для начала с этим, я уже час бьюсь

Решение задачи: «Найти мин и макс значения в двумерном массиве»

textual
                            Листинг программы 
                        

                            Sub Vice()
 
    Dim min As Integer, max As Integer
    Dim i As Integer, j As Integer, n As Integer
    Const m As Integer = 3
    Dim Mas(1 To m, 1 To m) As Integer, S As String
    
    S = "Исходный массив" & vbCrLf
    
    For i = 1 To m
          For j = 1 To m
                 n = n + 1
                 Mas(i, j) = InputBox("Введите " & j & "-й элемент " & i & " -го столбца", "Data", n)
                 S = S & Mas(i, j) & vbTab
          Next j
          S = S & vbCrLf
    Next i
    
    min = Mas(2, 1): max = Mas(1, 3)
    
    For i = 1 To m
         If Mas(2, i) < min Then min = Mas(2, i)
         If Mas(i, 3) > max Then max = Mas(i, 3)
    Next i
    
    S = S & vbCrLf
    S = S & "Минимальное значение второй строки массива  " & min & vbCrLf
    S = S & "Максимальное значение третьего столбца массива " & max & vbCrLf
    MsgBox S
    
End Sub
                        