Re , i modified it a bit the last it was posted ! it loops until user enter "0" (without quotes) ..can replace with whatever character you want !
Dim userInput
userInput = InputBox("Enter msg")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
'show inputbox until user enters 0
Do While...