Imports System

Public Module Module1

    Public Sub Main()

        dim number as integer

        dim x as integer

        x =0

        Console.WriteLine("Input a number")

        number = Console.ReadLine()

        do while x < number

        x=x+1

        Console.WriteLine(x)

        loop

    End Sub

End Module