Подсчитать количество четных чисел в массиве из 20 случайных чисел - VB

dim arr(1 to 20) as integer, kol as integer, s as string
randomize
kol = 0
s=""
for i =1 to 20
arr(i)=100*Rnd
s=s & " " & arr(i)
if arr(i) mod 2 = 0 then kol = kol + 1
next i
msgbox s & ", " & kol