Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim a As integer

        Dim total As integer

        Console.WriteLine("Input an integer")

        a = Console.ReadLine()

        for a = a to 0 step -1

            If a > 0 then

                total = a - 1

                Console.WriteLine(total)

        End If

        Next

        End Sub    

End Module

​