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

Private Sub Command1_Click()
Dim A(1 To 15) As Integer, sum As Integer, i As Integer
sum = 0
 For i = 1 To 15
     A(i) = InputBox("Введите значение A (" & i & ")", "Ввод данных")
     Print A(i);
     If A(i) Mod 2 <> 0 And A(i) >= 0 Then sum = sum + A(i)
 Next i
    Print
    Print "Сумма нечетных положительных элементов = " & sum;
End Sub