"VBA" Programlama dilinde "Fibonacci Serisinde N'inci Terimi Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.

Option Explicit

Public Sub Main()
    Dim n As Integer
    n = InputBox("Pozisyon Girin (N): ")
    MsgBox "Fibonacci Numarası: " & NthFibonacciNumber(n)
End Sub

Public Function NthFibonacciNumber(n As Integer) As Integer
    If n = 1 Then
        NthFibonacciNumber = 0
    ElseIf n = 2 Then
        NthFibonacciNumber = 1
    Else
        NthFibonacciNumber = NthFibonacciNumber(n - 1) + NthFibonacciNumber(n - 2)
    End If
End Function