Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer

​

        ' Optional. Numeric expression. The amount by which counter is incremented each time through the loop.

        for i = 119 to 4761 step 3

        Console.WriteLine(i)

        next

    End Sub

End Module