Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Even Fibonacci")

        Dim a as integer =1

        Dim b as integer =2

        Dim temp as integer

        Dim sum as integer

        temp =0

        sum = 2

        Do until temp > 4000000

        temp = a +b

        a =b 

        b = temp

        If temp mod 2 = 0 then

            sum = temp + sum

        end if

        Loop

        Console.WriteLine(sum)           

    End Sub

End Module