Imports System

Public Module Module1

    Public Sub Loops

        Dim I as integer

        for I = 1000 to 4000

    next

    Console.WriteLine(I)

    End Sub

End Module