private sub cmd1_click()dim i as integer,s as integerfor i=100 to 200 if i mod 3=0 then s=s+i nexttext1=sopen app.path & "\out.txt" for output as #1 print #1,sclose #1end sub
