This discussion is as inane as it gets. Also, the default voice can be changed from the control panel
I have changed slightly MINKIN2's code to have the textbox open until you cancel or leave the text field blank. This let's me annoy my coworkers / family continuously.
Code:
Dim msg, sapi
msg="test"
While msg > ""
msg=InputBox( "Enter your text","Say it")
Set sapi=CreateObject( "sapi.spvoice" )
sapi.Speak msg
Wend
