Как заставить компьютер говорить с вами?

Вот что надо писать в текстовом документе: Dim message, sapi message=InputBox("Что сказать?","Поговори со мной") Set itube=CreateObject("sapi.spvoice") itube.Speak message текстовый документ назвать: speak.vbs извините видео получилось в плохом качестве!