while loop to count steps of inner loops

[Itsi256]

I am writing a Sub to identify the longest Collatzs Sequenze between 1 and 1000. How do I need to implement an inner while loop to count the steps of the inner loops to identify the longest Collatz sequence?

Sub LongestCollatz()

Dim i As Long
Dim maxSteps As Integer


    For i = 1 To 1000
    
        If i = 1 Then
            maxSteps = CInt(20.856 * Log(2))
        Else
            maxSteps = CInt(20.856 * Log(i))
        End If
    
        If i Mod 2 = 0 Then
            i = i / 2
        Else
            i = 3 * i + 1
        End If
    
    Debug.Print i
        
            
        End If
        
                 
    Next i
    
End Sub

 

[6StringJazzer]

It is not a good practice to modify a For loop iterator inside the loop. This gives i a repeating sequence of 4, 2, 1.... In this case i will never reach 1000 and you have an infinite loop.

You have an unmatched End If.

You are setting but not using maxSteps.

I can see some logic that relates to the the Collatz conjecture but don't really understand your overall approach.

Your question is unclear, because there is no inner loop. I am guessing that you want to count the number of iterations that occur. However, you need to determine what is the condition to exit the loop.

 

[Itsi256]

Thank you very much for your recommendation and sorry for the confusion.
Yes in the Code is no inner loop, because I don't know how to do it...this is why am asking. But it seems my question is not clear so is it possible to delete my question and write in a more clear way?