Caranya Sebagai berikut:
1) BUKA notePad.
2) COPY CODE DI BAWAH INI Pada Notepad
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
3) Simpan dengan nama apapun dengan akhiran .vbs
4) INGAT UNTUK SAVE THE FILE AS. VBS
5) Double klik file tersebut.
6) SEKARANG tulis apapun textbox dan tekan ok
