Open a text file in notepad and write:

copy from here the bold text//:-

Dim msg, sapi

msg=InputBox("Enter your text","Talk it")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg //Save the file with a (*.vbs) extension, it will create a VBScript File.

Then after clicking the .vbs file, it will prompt you for a text, input the text and press ok.