Найти индекс макс и мин значения элемента массива - VBA

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

попробовала так, все работает но как сделать чтоб индекс правильно выводил, не знаю

                    Листинг программы
                
 
                        
                          
                    
Sub Mass()
Dim M1() As Integer, M2() As Integer, n As Integer, i As Integer, max As Integer, min As Integer, _
Str1 As String, Str2 As String, Str3 As String, M3() As Integer
Dim MNO As Integer
n = InputBox("Введите количество элементов массива", "Образование массива")
ReDim M1(n), M2(n), M3(n)
 
Randomize
For i = 1 To 30
M1(i) = Int(10 * Rnd + 1)
M2(i) = Int(10 * Rnd + 1)
Str1 = Str1 & M1(i) & " "
Str3 = Str3 & M2(i) & " "
Next
 
min = M2(1)
k = 1
For i = 2 To n
If M2(i) < min Then min = M2(i): k = i
Next
 
max = M1(1)
l = 1
For i = 2 To n
If M1(i) > max Then max = M1(i): l = i
Next
 
MsgBox "Массив: " & Str1 & Chr(13) & "Наибольшее число: " & max & ". Его индекс  =" & k & Chr(13) & _
"Наименьшее число: " & min & ". Его индекс =" & l & Chr(13)
 
End Sub

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Mass()
Dim M1() As Integer, i%, max%, min%, Str1$, k%, l%, n%
n = InputBox("Введите количество элементов массива", "Образование массива")
n = n - 1
ReDim M1(n)
Randomize
k = 1: l = 1
For i = 0 To n
M1(i) = Int(10 * Rnd + 1)
Str1 = Str1 & M1(i) & " "
If i = 0 Then min = M1(0): max = M1(0)
If M1(i) <= min Then min = M1(i): k = i + 1
If M1(i) >= max Then max = M1(i): l = i + 1
Next i
 
MsgBox "Массив: " & Str1 & Chr(13) & "Наибольшее число: " & max & ". Его индекс =" & l & Chr(13) & _
"Наименьшее число: " & min & ". Его индекс =" & k & Chr(13)
End Sub