Imports System

Public Module Module1

    Public Sub Main()

        dim answer as string

        do 

            console.write("did ahmad come yet (a=yes/b=no)?")

            answer=console.ReadLine()

        loop until answer = "a"

        console.Writeline("finnaly ahmad arrived")

    End Sub

​

End Module