Разделить элементы массива с четными номерами позиций на произвольное число b - VB

Private Sub Command1_Click()
Const N = 10
Dim a(N), i  As Integer, b
b = Val(InputBox("b-?", , 10))
Me.Cls
If b <> 0 Then
Randomize (Timer)
For i = 1 To N
a(i) = Int(Rnd * 100)
Me.ForeColor = 0
Print a(i); vbTab;
If i Mod 2 = 0 Then
Me.ForeColor = 255
Print a(i) / b; vbTab
Else
Print a(i); vbTab
End If
Next i
Else
MsgBox "b=0!"
End If