Imports System
Public Module Module1
Public Sub Main()
dim x as string
Do
Console.WriteLine("please write your name")
x = console.ReadLine()
loop until x ="A"
End Sub
End Module