Module Multi3_5 \'My solution to Project Euler Problem 1
Sub Main()
Dim Nbrs(999) As Boolean, R As Integer = 0
For i = 3 To 999 Step 3 : Nbrs(i) = True : R += i : Next
For i = 5 To 999 Step 5 : If Not Nbrs(i) Then R += i
Next : Console.WriteLine(R)
End Sub
End Module