Даны три числа. Найти среди них максимальное отрицательное число - VB

Option Explicit
Dim a(1 To 3) As Single, max As Single, i As Integer
Private Sub main()
    
    For i = LBound(a) To UBound(a)
         a(i) = InputBox("Введите число")
         If a(i) < 0 And max = 0 Then max = a(i)
         If a(i) < 0 And max < a(i) Then max = a(i)
    Next i
    
    If max < 0 Then
        MsgBox ("Максимальное отрицательное число равно  " & max)
    Else
        MsgBox ("Отрицательных чисел нет ")
    End If
    
End Sub