Imports System

Public Module Module1

    Public Sub Main()

        Dim index AS INteger = 167

        While Index >= 0

            Console.writeline(Index & " ")

            Index = Index + 1

        End While

    End Sub

End Module