VBS - Text to speech Program

[QuantumPhysics]

I didn't officially make the program I just included a win32 Speech API utility but hey! It's text to speech without a download. I didn't see the submission to either one on this sub forum so here ya go

Here's the source code:

do
Dim textspeech, sapi
textspeech=InputBox("What do you want me to say?","QuantumPhysics' Text to Speech Software")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak textspeech
loop