ProjectEuler_14 -TizzyT

Module CollatzSequence 'My solution to Project Euler Problem 14
    Sub Main()
        Dim Nbr As Int64, Cnt As Integer = 0
        For i = 2 To 1000000
            Dim CrntNbr As Int64 = i, CrntCnt As Integer = 0
            While Not CrntNbr = 1
                If CrntNbr Mod 2 = 0 Then CrntNbr /= 2 Else CrntNbr = 3 * CrntNbr + 1
                CrntCnt += 1
            End While
            If CrntCnt > Cnt Then
                Cnt = CrntCnt : Nbr = i
            End If
        Next : Console.WriteLine(Nbr)
    End Sub
End Module