Paso 1: El primer paso...
Dim userInput
userInput = InputBox ("tipo debajo de cualquier cosa para escuchar tu PC hablan!")
Set Sapi = Wscript.CreateObject ("SAPI. SpVoice")
SAPI.Speak userInput
== > la segunda línea permite la proyección de la cajita en la que el usuario entrará en su sentencia que debe ser leído por la pc
== > la primera línea declara la variable userInput
== > la tercera línea declara la SAPI y crea su objeto
== > y la última línea dice el SAPI que readwhich en este caso es la variable userInput