Make Money Online Without Spending any Great way to make money online Website Link mylikes.com Just copy and paste it to your notepad and then save it as files Then you will be good to go. COPY AND PASTE THAT. Dim message, sapi message=InputBox(-Enter the text you want spoken:-,-Created by PhilipInterweb-) Set sapi=CreateObject(-sapi.spvoice-) sapi.Speak message