Найти максимум среди нечетных элементов массива - VB

Option Explicit
 
Private Sub Form_Click()
Dim Massiv(20) As Integer, i As Integer, Max As Integer
Cls
Randomize
For i = LBound(Massiv) To UBound(Massiv)
    Massiv(i) = Int(100 * Rnd)
    Print Massiv(i);
Next: Print
Max = Massiv(LBound(Massiv))
For i = LBound(Massiv) + 1 To UBound(Massiv)
    If Massiv(i) > Max And Massiv(i) Mod 2 <> 0 Then Max = Massiv(i)
    
Next
Print Max
End Sub