Dim speaks, speech
message="Sorry, the time is over"
Set speech=CreateObject("sapi.spvoice")
speech.Speak message