VB program for 1-40 can be divided by 5 to get the sum of all numbers

VB program for 1-40 can be divided by 5 to get the sum of all numbers

dim sum%,i%
for i=1 to 40
if i mod 5=0 then sum=sum+i
next
print sum