codice:
        Dim Pluto As Integer
        Dim Pippo As Integer 
        For i = 4 To 10
            Pluto = i + 1
            Pippo = i + 10
            MsgBox("ciao")
            i = Pippo - Pluto
        Next
La soluzione è.... infinite volte , perché i = Pippo - Pluto darà SEMPRE come risultato 9, ed il ciclo andrà avanti ab limitum.