Imports System

Public Module Module1

    Public Sub Main()

        Dim count As Integer

        For count= 99 to 1 step -1

        Console.WriteLine(Count & "99 till 1")

        Console.Readline()

    Next count

    End Sub

End Module