Imports System

Public Module Module1

    Public Sub Main()

        Dim x as Integer

        Dim number as Integer

        Console.WriteLine("Please input your number")

        number = Console.ReadLine()

        x = 0

        Do

            x = x + 1

            Console.WriteLine(x)

        Loop Until x = number

    End Sub

End Module