let 
//creamos una lista de cuantos elementos de la Sucesión de Fibonacci queramos mostrar
enteros={1..25},

//Transformamos esos valores 1,2,3,4... de la anterior lista
//con el Algortimo de Fibonacci, esto es, acumulando el valor presente al anterior
//forzando como primeros elementos el 0 y el 1
Fibonacci= List.Transform(enteros, 
    (x) => let Fibo = (n) => 
                if n = 1 then 0 else 
                    if n = 2 then 1 else 
                        //hacemos uso recursivo de la función creada
                        //ya que el siguiente número de la secuencia es la suma de los dos anteriores, para calcular en valor N de la secuencia necesitamos, por tanto, conocer/calcular las posiciones N-1 y N-2
                        ( @Fibo(n-1) + @Fibo(n-2) )
            in 
                Fibo(x) )
in 
    Fibonacci

...
  Dim f0 As Long, f1 As Long, elementos As Integer
f0 = 0: f1 = 1
elementos = 25
'dimensionamos nuestra Array al número de elementos deseados
ReDim Fib(1 To elementos) As Long

'Rellenamos la matriz con los elementos de la Serie de Fibonacci
Fib(1) = f0     'asignamos dato al primer valor
Fib(2) = f1     'asignamos dato al segundo valor
For i = 3 To UBound(Fib)
    Fib(i) = f0 + f1    'Calcula el dato como suma de un elemento más el anterior
    'hacemos la recurrencia para los siguientes elementos
    f0 = f1
    f1 = Fib(i)
Next i
...