do
 
   'create the voice object
   Set VObj = CreateObject("SAPI.SpVoice")
 
   'get what the user wants to say, exit if cancel or return no msg
   MSG = InputBox("Type PC To Say" & VBCRLF & VBCRLF & VBCRLF & "To End Enter Nothing OR Push The Cancel Button", "Voice Box ", "")
     If MSG = "" Then WScript.quit: Else
 
       'use the VObj to speak msg
       with VObj
         .Volume = 100
         .Speak MSG
       end with
 
 loop