Cool : Try Buat Macam ni .

Korang Copy & Paste dekat Notepad

 

Dim message, sapi
message=InputBox("Tulis Benda Yang Mengarut","By Farid Fletcher")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Then Korang Save As Kotak.VBS

Try It !