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