Imports System
Imports System.Diagnostics
Public Class MainClass
Shared Sub Main()
Dim N As Long = 10
Dim result As Long = Fibo(N)
Console.WriteLine(result)
End Sub
Private Shared Function Fibo(ByVal n As Long) As Long
If n <= 2 Then Return n
Return Fibo(n - 1) + Fibo(n - 2)
End Function
End Class