Imports System

Public Module Module1

    Public Sub Main()

​

​

​

​

​

    Dim index As Integer = 0 

    While index <= 1000

    Console.WriteLine(index & “”) 

    Index += 1 

    End While 

​

    End Sub

End Module