Imports System

​

Public Module Module1

​

    Public Sub Main()

        NumberLess()

    End Sub

​

    Public Sub NumberLess()

        console.WriteLine("Enter any positive number")

        dim x as string

        x = console.ReadLine()

        do

            x = x - 1

            console.Write(x)

        loop until x = 0

​

    End Sub

End Module