Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim Count as Integer

        Count = 10

        While Count >= 1

            Console.WriteLine(Count)

            Count = Count - 1

        End While 

    End Sub

End Module