При выходе из цикла не удается получить АДРЕС элемента

Минимальный элемент находит, а индекc его говорить не хочет! Как правильно спросить?:confused:
Вот как я пытаюсь:

Option Explicit

Const N = 3 'Сколько элементов

Sub Procedure()

Dim Massiv(1 To N) As Long
Dim Data As Long
Dim I As Long
Dim Min As Long
Dim Str As String

Massiv(1) = 20
Massiv(2) = 10
Massiv(3) = 40

Min = Massiv(1)
For I = 2 To N
If Min > Massiv(I) Then Min = Massiv(I)
Next

Str = Str & vbCrLf & " Минимальный элемент массива = " & Min & " находится по адресу = " & I
MsgBox Str, vbInformation, "Массив"
End Sub