Imports System

Public Module Module1

    Dim accumulator as Integer = 0

    Public Sub Main()

        Dim ii as Integer = 0

        For ii = 1 to 10 step 3

        Console.WriteLine(ii)

        accumulator += 1

    Next

    Console.Writeline("Fails at: " & ii)

    Console.WriteLine("Loop ran " & accumulator & " times")

    End Sub

End Module