Нахождение минимального и максимального значения в массиве - VB

Option Explicit
Option Base 1
Dim a(4, 4) As Integer
Dim i As Integer
Dim j As Integer
Dim r As Single
Dim max As Integer
Dim min As Integer
Private Sub Command1_Click()
For i = 1 To 4
    For j = 1 To 4
  a(i, j) = Int(Rnd * 201) - 100
  Next j
Next i
 
max = a(1, 1)
min = a(1, 1)
 
For i = 1 To 4
    For j = 1 To 4
        If a(i, j) > max Then max = a(i, j)
        If a(i, j) < min Then min = a(i, j)
    Next j
Next i
r = max \ min
MsgBox ("Максимальное больше минимального элемента в " + Str(Abs(r)) + " раз.")
End Sub