dim s1,s2,s3,i as integer i=1 s1=1 s2=2 do while i<50 s3=s1+s2 msgbox(s1 & "-" & s2 & "-" & s3) s1=s2 s2=s3 i+1