Dim s as long ,x as integer s=0 For x=9to10 Step2 S=s+x Next