Найти минимальный среди положительных элементов. - VB

Sub Noizer()
Dim a(), i%, Min#, n%
Cells.Clear
n = Int(InputBox("Введите размерность массива", "Ввод данных", 10))
ReDim a(1 To n)
Randomize
For i = 1 To n
 Cells(4, i) = Round(22 * Rnd + (-12.9), 2)
Next
Min = 5.25 'от фонаря направо влево
For i = 1 To n
  If Cells(4, i) > 0 Then
    If Cells(4, i) < Min Then Min = Cells(4, i)
   End If
Next i
 
Cells(2, 6) = Min
Cells(2, 1) = "Минимальный среди полож. элем-тов массива ="
End Sub