Text to speech VBS Script

		      This is a VBS Script to demonstrate text to speech capabilities. An inputBox pops up asking for text. The user types in any text and 
the user's computer will read the text aloud. This program should run on any computer running microsoft windows version Windows 98 or newer. To stop the script 
leave the inputBox blank. Add periods or commas to control the computer's speech rhythm.  
 There are more VBS Scripts on the 
		  VBS Scripts page.   

textToSpeech.vbs
          

 
Dim var1 
 
Do While 1 = 1 'this whole program will loop until you leave the input box blank'
var1 = inputbox("Type Something:") 'this line causes a text input box to pop up' 
set sapi = wscript.createobject("SAPI.Spvoice")
WScript.Sleep 100 'pauses the script for .1 seconds'
Sapi.speak var1
 
If var1 = "" Then 'this line stops the loop'
Exit Do
End If
 
Loop