Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim number as Integer 

        Console.Write("Enter Value: ")

        number = Console.ReadLine()

        for i as integer = number to 0 step -1

            Console.Writeline(i)

        Next i

    End Sub

End Module

​

​