ProjectEuler_2 -TizzyT

Module EvenFibonacci 'My solution to Project Euler Problem 2
    Sub Main()
        Dim S = 0, R = 0, N1 = 0, N2 = 1
        While S <= 4000000
            S = N1 + N2
            If S Mod 2 = 0 Then R += S
            N1 = S
            S += N2
            If S Mod 2 = 0 Then R += S
            N2 = S
        End While
        Console.WriteLine(R)
    End Sub
End Module