How to make your computer talk using notepad. HD

A simple video on how to make your computer talk using notepad, the code is below. Dim msg, sapi msg=Inputbox("please enter text for audio translation","Translator") Set sapi=CreateObject("sapi.spvoice") Sapi.speak msg lol=msgbox("Request complete") simply copy and paste into notepad and follow the tips on how to save. Music obtained from: http://www.freeplaymusic.com/