help needed

Public Function min(ByVal a() As Single)
Dim i As Integer
Dim smaller As Integer
smaller = a(i)
i = i + 1
While a(i) <> 555
If smaller > a(i) Then
smaller = a(i)
End If
i = i + 1
End While
Return smaller
End Function