Imports IVRForBeginners

Public Class HelloWorld
 Inherits NetClientCall

 Sub Answer()

  Dim syn As Synthesizer

  playMessage("helloworld")
  waitIfPlaying()

  syn = getSynthesizer()

  syn.speak("Please press a key on your telephone's key pad.")
  inputWait(1, "#", 10000)

  syn.speak("You pressed ...")

  If inputAvailable() > 0 Then
   syn.speak(getChar().ToString())
  Else
   syn.speak("nothing")
  End If

  syn.speak("That was easy, wasn't it?")
  syn.wait()

 End Sub

End Class