Module Module1

    ' sums all the even numbers from 0 to n
    Function calcSum(ByVal n As Integer)
        If (n > 0) Then
            n = n + calcSum(n - 2)
        End If

        Return n
    End Function

    Sub Main()
        Dim sum As Integer = 0
        Dim eat As String

        sum = calcSum(10)
        Console.WriteLine(String.Format("Sum = {0}", sum))

        Console.WriteLine("Any key to continue")
        eat = Console.ReadLine()
    End Sub

End Module