Convert text to Voice by Notepad

VERY EASY TO MAKE TEXT TO VOICE APPLICATION U DON'T NEED TO LEARN ANY LANGUAGE JUST FOLLOW THESE STEPS
1.open notepad

2.copy the below given codes and paste it in notepad..

Dim msg, sapi
msg=InputBox("Enter your text","Message Box")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg


3.save it as ...anyname.vbs
(remember the extension name its should be .vbs nothing else)

4.now open it and write anything in the text box..press enter...done enjoy