Talking notepad

hi guys just found out this thing on net while surfing...
its the talking notepad :P


paste this code in notepad and save it as anyfilename.vbs
and run it


Dim msg, sapi
msg=InputBox("Enter your text you want the pc to speak up–OUG","Mr.aXe")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg