Oke, langsung aja…
Buka notepad dan copas kode berikut…

Code:
Dim msg, jasakom
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set jasakom=CreateObject("sapi.spvoice")
jasakom.Speak msg

Nah simpan dengan nama Terserah.vbs dan jalankan…
Setelah itu masukkan atau ketik kata2 yang diinginkan…
Nyalakan speaker sekeras mungkin dan “ENTER”…

Semoga berguna…