Dim message, sapi message=InputBox("Что сказать?","Поговори со мной") Set itube=CreateObject("sapi.spvoice") itube.Speak message