Осуществлять поиск минимальных значений в каждой строке двухмерного массива - VB

Option Explicit
Option Base 1
'найти минимум в каждой строке и максимум в каждом столбце
Private Sub Form_Click()
Dim a() As Integer, r As Integer, c As Integer, min As Integer, max()
  Randomize
  Cls
  ReDim a(Int(Rnd * 8 + 3), Int(Rnd * 5 + 3)), max(UBound(a, 2))
  Print String$(UBound(a, 2) + 1, vbTab) & "Min"
  For r = 1 To UBound(a, 1)
    min = 32767
    For c = 1 To UBound(a, 2)
      a(r, c) = Int(Rnd * UBound(a, 1) * UBound(a, 2))
      Print vbTab & a(r, c);
      If a(r, c) < min Then min = a(r, c)
      If a(r, c) >= max(c) Then max(c) = a(r, c)
    Next c
    Print vbTab & min
  Next r
  Print: Print "Max     " & Join(max, vbTab)
End Sub
 
Private Sub Form_Load()
AutoRedraw = True
Font.Name = "Courier"
End Sub