Помогите решить задачу в Visual Basic

а как это будет в экселе выглядеть, чтоб программа работала? ?
я тут попробовала решить, не работает, скажите ошибки??) )
sub basic()
dim a, n,s,as double
a=1
n=1
while (s>1000)
s=s+a
a=a+1
do until (s>1000)
Loop until (s>1000)
wend
msgbox (s)
end sub