Program to find Fibonacci series

Function Fibonacci()
dim a,b,c
        n = 20
a=0
b=1
do while c<=n
x = x & b
c=a+b
a=b
b=c
loop
msgbox x
end Function