Посчитать количество четных элементов массива - VB

Private Sub Command1_Click()
 Dim a() As Integer, n As Single, m, z As Integer
Dim i As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите размерность массива", , 14)
ReDim a(1 To m)
 For i = 1 To m
        a(i) = Int(Rnd * 77)
            Print a(i);
        z = a(i) Mod 2
            If z = 0 And a(i) <> 0 Then n = n + 1
 Next i
Print
Print "В массиве " & n & " четнных эллементов"
End Sub