Dim userInputuserInput = InputBox("Write your message here")Set Sapi = Wscript.CreateObject("SAPI.SpVoice")Sapi.speak userInput