Sub Answer(kall As ComClientCall)

 Dim ok As Boolean
 Dim syn As ComSynthesizer
 
 kall.playMessage ("helloworld")
 kall.waitIfPlaying (-1)
 
 Set syn = kall.getSynthesizer()
 syn.speak ("Please press a key on your telephones key pad")
 syn.wait (-1)
 
 ok = kall.inputWait1(1, "#", 10000)
 
 If ok Then
  syn.speak ("You pressed " & kall.getChar() & " .")
  
 Else
  syn.speak ("You pressed nothing.")
  
 End If
  
 syn.speak ("That was easy, wasnt it?")
 syn.wait (-1)
  
End Sub