"SPEECH.SpVoice" - скорее всего SAPI4. Танцы
с бубнами для Win7 не помогли запустить SpeechPlatformRuntime. Рабочий вариант для SAPI5 - поставить один из готовых пакетов RHVoice
https://tiflohelp.ru/synthesizers/sapi-5/rhvoice-s...
Можно проверить, какие голоса установлены программой
https://aloys.narod.ru/sof/1/demagog.htm#2 или макросом
https://www.cyberforum.ru/vbscript-wsh/thread22813...
Option Explicit
' https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms723609(v=vs.85)
Const SAFT48kHz16BitStereo = 39
' Creates file even if file exists and so destroys or overwrites the existing file
Const SSFMCreateForWrite = 3
Dim oFileStream, oVoice
Dim message, mobilegaming
Dim MessageBox, Title, Default
MessageBox = "Enter your Text" ' Set prompt.
Title = "Text to Speech" ' Set title.
Default = "Привет, комрад! Как твои дела?" ' Codepage source - ANSI: CP1251
message = InputBox(MessageBox, Title, Default, 100, 100)
Set mobilegaming = CreateObject("SAPI.SpVoice")
mobilegaming.Speak message
Set oFileStream = CreateObject("SAPI.SpFileStream") ' Save Steam
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open "C:\Users\User\Desktop\Output.mp3", SSFMCreateForWrite
Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream
oVoice.Speak message
oFileStream.Close