Сколько введено чисел больше 7 и сколько меньше - VB

Dim N as long
Dim Sch1 as long
Dim Sch2 as long
N= тут вводите кол-во эл-ов в массиве
sch1=0
sch2=0
Dim A(N) as long
For i=0 to N-1 
Input A(i)
If A(i)>7 then 
sch1=sch1+1 
end if
If A(i)<7 then
sch2=sch2+1
end if
Next i