求VB程序代码,100至200之间,能被5整除,但不能被3整除的数.并求所有数之和

dim i as integer
dim sum as integer
sum=0
for i=100 to 200 step 5
if i mod 30 then sum=sum+i
next