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