Imports System

Public Module Module1

    Public Sub Main()

        dim answer as string

        do 

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

            answer=console.ReadLine()

        loop until answer = "a"

        console.Writeline("finnaly the food arrived")

    End Sub

End Module