Set V.Voice = V.GetVoices("Name=Microsoft Sam", "Language=9").Item(0) 'параметри голосу V.Speak "hello" 'сказати слово End Sub 117