Найти min элемент массива - VB

Private Sub CommandButton1_Click()
Dim N As Integer, i As Integer
Dim a(), min_, k As Integer
N = Val(InputBox("вводим размерность N", , 10))
If N > 0 Then
Cells.Clear
ReDim a(N)
For i = 1 To N
a(i) = Int(Rnd * 200) - 100
Cells(i + 1, 1) = a(i)
Next i
 
min_ = a(1): k = 1
For i = 2 To N
If min_ > a(i) Then min_ = a(i): k = i
Next i
MsgBox "минимальный элемент: a(" & k & ") = " & min_
Else
MsgBox "N должно быть больше 0"
End If
End Sub