Script yang bisa ngomong (script vbs)

Pengen tahu script yang bisa ngomong? maksudnya adalah sebuah script sederhana dari script vbs yang bisa mengkonversi dari tulisan ke suara.
kalo mau mencobanya silakan ketikkan script berikut kedalam notepad :

code:
    Dim message, sapi
    message=InputBox("SILAHKAN TULISKAN YANG INGIN DIUCAPKAN","Konversi Tulisan ke Suara")
    Set sapi=CreateObject("sapi.spvoice")
    sapi.Speak message


kalo diklik akan tampil seperti ini:

masukkan kata atau kalimat kedalam kolom dan tekan enter. maka kata/kalimat yang anda tulis tadi akan diucapkan. (suara yang keluar akan lebih jelas jika ditulis dengan bahasa inggris)

Selamat mencoba.