Найти разницу сумм четных и нечетных чисел в случайном массиве - VB

dim mas(1 to 12) as integer,even as integer, odd as integer, s as string, sum as integer
randomize
even=0
odd=0
s=""
for i=1 to 12
  mas(i)=cint(rnd*100)
  if mas(i) mod 2 = 0 then even=even + mas(i) else odd =odd + mas(i)
  s=s & vbcrlf & cstr(mas(i))
next i
sum = odd - even
s=s & vbcrlf & "разница сумм: " & cstr(sum)
msgbox s