Люди добрые!!!! Помогите отладить программу в VBA!!!

Формулировка задачи:

задание: Создать в excel функцию, получающую число и возводящее
ближайшее к нему число Фиббоначи.
Имеется:
Function XXX(Nas Double) As long
Dim fib_m1 as long, fib_m2 as long,fib as long
Dim Num as long
fib_m2=1: fib_m1=1:fib=1
Num = Int(N)
While fibfib_m2 = fib_m1
fib_m1 = fib
fib = fib_m1 + fib_m2
Wend
fib_m1If Abs (N-fib)Else
XXX = fib_m1
End If
End Function
Пасиба

Решение задачи: «Люди добрые!!!! Помогите отладить программу в VBA!!!»

textual
                            Листинг программы 
                        

                            <font color="blue">Function</font> XXX(Nas <font color="blue">As</font> <font color="blue">Double</font>) <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">Dim</font> fib_m1 <font color="blue">As</font> <font color="blue">Long</font>, fib_m2 <font color="blue">As</font> <font color="blue">Long</font>, fib <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">Dim</font> Num <font color="blue">As</font> <font color="blue">Long</font>
    fib_m2 = <font color="darkblue"><b>1</b></font>: fib_m1 = <font color="darkblue"><b>1</b></font>: fib = <font color="darkblue"><b>1</b></font>
    Num = Int(Nas)
    <font color="blue">While</font> fib < Num
        fib_m2 = fib_m1
        fib_m1 = fib
        fib = fib_m1 + fib_m2
    <font color="blue">Wend</font>
    <font color="00AA00">'fib_m1<n<fib< font="">
    <font color="blue">If</font> Abs(Num - fib) < Abs(Num - fib_m1) <font color="blue">Then</font>
        XXX = fib
    <font color="blue">Else</font>
        XXX = fib_m1
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Function</font>
</n<fib<></font>
                        