Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim fib1 As Integer

        Dim fib2 As Integer

        Dim counter As Integer

        Dim result As Integer

        Dim sum As Integer

        fib1 = 0

        fib2 = 1

        result = fib1 + fib2

        Do While sum < 4000000

            fib1 = fib2 + result

            result = fib2

            fib2 = fib1

            counter = counter + 1

            If fib2 Mod 2 = 0 Then

                sum = sum + fib2

            End If

        Loop

​

        console.WriteLine(sum)

    End Sub

End Module

​