dim i as integer
dim sum as interger
for i =1 to 100
sum=sum+i
next i
msgbox(sum)