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