document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module EvenFibonacci \'My solution to Project Euler Problem 2
  2.     Sub Main()
  3.         Dim S = 0, R = 0, N1 = 0, N2 = 1
  4.         While S <= 4000000
  5.             S = N1 + N2
  6.             If S Mod 2 = 0 Then R += S
  7.             N1 = S
  8.             S += N2
  9.             If S Mod 2 = 0 Then R += S
  10.             N2 = S
  11.         End While
  12.         Console.WriteLine(R)
  13.     End Sub
  14. End Module
');