Project Euler Solutions (in VB, because why not?) (Not that I would encourage you to use VB, of course)

1.vba

Module Module1

    Sub Main()
        Dim maxNumber As Integer = 1000
        Dim value As Integer = 0
        For i As Integer = 1 To maxNumber - 1
            If (i Mod 3 = 0) Or (i Mod 5 = 0) Then
                value += i
            End If
        Next
        Console.WriteLine(value)
        Console.ReadLine()
    End Sub

End Module

2.lazy.vba

Module Module1

    Sub Main()

        Const max As Double = 4000000
        Dim numbers() As Double = {1, 2, 0}
        Dim sum As Double = 2
        Do
            numbers(2) = numbers(0) + numbers(1)
            numbers(0) = numbers(1)
            numbers(1) = numbers(2)
            If ((numbers(2) Mod 2 = 0) And (numbers(2) < max)) Then
                sum += numbers(2)
            End If
        Loop Until numbers(2) > max
        Console.WriteLine(sum) : Console.ReadKey()

    End Sub

End Module