Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim x as string

        do

            Console.WriteLine("Hello World")

            x = console.ReadLine()

        loop while x = "y"

    End Sub

End Module

​