Imports System

Public Module Module1

    Public Sub Main()

        dim UserRespones as char 

        console.writeline("enter Y or N")

        UserRespones = console.ReadLine()

        do while UserRespones = "Y"

            console.writeline("in the loop")

        loop

    End Sub

End Module