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