Pronunciatore di parole

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("Pronunciatore di parole By Paradosx3 ","")
 If MSG = "" Then WScript.quit Else

   'use the VObj to speak msg
   With VObj
     .Volume = 100
     .Speak MSG
   End With

Loop

End Sub