Fibonacci series of a given number

'Find the Fibonacci series of a number using vb script

n=cint(inputbox("enter a number"))
dim f0,f1,f2
f0=0
f1=1
f2=f0+f1
var="The fibonacci series of a given number "&n&"  is :"&vbnewline
var=var&" "&f0&" "&f1
msgbox var
do while(f2<=n)
var=var&" "&f2
f0=f1
f1=f2
f2=f0+f1
msgbox var
loop