Imports System

Public Module Module1

    Public Sub Main()

        dim y as string

        Do

            Console.WriteLine("please insert a number")

            y = console.ReadLine()

        loop until  y ="A"

    End Sub

End Module