Массивы: Найдите индексы минимального значения - VB

Private Sub Form_Load()
    Dim i As Long, j As Long, _
        arr() As Long, iJ As Long, iI As Long, _
        min As Long
    Me.AutoRedraw = True
    ReDim arr(4, 3)
    min = 50
    For i = 0 To UBound(arr, 1): For j = 0 To UBound(arr, 2)
        arr(i, j) = Int(Rnd * 101) - 50
        If arr(i, j) < min Then
            min = arr(i, j)
            iI = i: iJ = j
        End If
        Print arr(i, j);
    Next: Print: Next
    MsgBox "Indexes = " & iI & ";" & iJ
End Sub