document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Module LargestPrimeFactor \'My solution to Project Euler Problem 3
  2.     Sub Main()
  3.         Dim Value = 600851475143, CrntNbr = 2, LF As ULong = 0
  4.         While True
  5.             While Value Mod CrntNbr = 0
  6.                 If CrntNbr > LF Then LF = CrntNbr
  7.                 Value /= CrntNbr
  8.             End While
  9.             CrntNbr += 1
  10.             If CrntNbr * CrntNbr > Value Then
  11.                 If Value > 1 AndAlso Value > LF Then LF = Value
  12.                 Exit While
  13.             End If
  14.         End While
  15.         Console.WriteLine(LF)
  16.     End Sub
  17. End Module
');