Imports System.Console

Module Fibonacci
    Function fib(ByVal n)
        If n < 2 Then Return n Else Return fib(n - 1) + fib(n - 2)
    End Function

    Sub Main()
        Dim n As Integer
        For n = 1 To 30
            WriteLine(n & ":" & fib(n))
        Next
    End Sub
End Module

http://en.literateprograms.org/Fibonacci_numbers_%28Visual_Basic_.NET%29#chunk%20def:fib

Fibonacci numbers

VB.NET