💸Script Inicio
Dim obj : Set obj = CreateObject("Scripting.FileSystemObject")
Dim inFile: Set inFile = obj.OpenTextFile("texto.txt")

' Read file
Dim strRetVal : strRetVal = inFile.ReadAll
curtaocanal = strRetVal
inFile.Close


Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3

Dim message, Canal Qbfala, Canal QbgeraWav
Dim vozes 

Set Canal Qbfala = CreateObject("SAPI.spVoice")
Set Canal QbgeraWav = CreateObject("SAPI.SpFileStream")

vozes = ""

for lista = 0 to Canal Qbfala.GetVoices.Count - 1
vozes = vozes &  Chr(13) & Chr(10) & lista & ": "& Canal Qbfala.GetVoices.Item(lista).GetDescription
vozes = left(vozes,inStr(1,vozes,"-",vbTextCompare)-1)
next 

voz = Inputbox(vozes, "Escolha seu narrador!"&  Chr(13) & Chr(10)) 
Set Canal Qbfala.Voice = Canal Qbfala.GetVoices.Item(voz) 

Canal QbgeraWav.Format.Type = SAFT48kHz16BitStereo
Canal QbgeraWav.Open "Audio.wav", SSFMCreateForWrite
Set Canal Qbfala.AudioOutputStream = Canal QbgeraWav 
Canal Qbfala.Speak curtaocanal

💸Script Final