ProjectEuler_3 -TizzyT

Module LargestPrimeFactor 'My solution to Project Euler Problem 3
    Sub Main()
        Dim Value = 600851475143, CrntNbr = 2, LF As ULong = 0
        While True
            While Value Mod CrntNbr = 0
                If CrntNbr > LF Then LF = CrntNbr
                Value /= CrntNbr
            End While
            CrntNbr += 1
            If CrntNbr * CrntNbr > Value Then
                If Value > 1 AndAlso Value > LF Then LF = Value
                Exit While
            End If
        End While
        Console.WriteLine(LF)
    End Sub
End Module