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