ProjectEuler_5 -TizzyT

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