Module SmallestMul \'My solution to Project Euler Problem 5
Sub Main()
Dim crntNbr As Double = 21
While True
Dim failed As Boolean = False
For i = 2 To 20
If Not crntNbr Mod i = 0 Then
failed = True
Exit For
End If
Next
If Not failed Then Exit While Else crntNbr += 1
End While
Console.WriteLine(crntNbr)
End Sub
End Module