Как в последовательности из m чисел найти наименьшее из всех положительных чисел - VB

Private Sub Command1_Click()
    Const m = 100
    Dim l&(m), f&
     l(0) = 2 ^ 31 - 1
    For f = 1 To m
        l(f) = Fix(Rnd * 2 ^ 31)
        If l(f) < l(0) Then l(0) = l(f)
    Next
    MsgBox "MIN=" & l(0)
End Sub