Imports System

Public Module Module1

    Public Sub Main()

        dim x as string 

        do 

            console.WriteLine(x)

            x= console.ReadLine()

        loop until x="B"

    End Sub

End Module