Sub prog1 ( ) a=0 For i=1 to 10 i=i+1 a=a+i Next Debug.Print