1. Pertama buka notepad kita dulu
2. Lalu copy dan pastekan kode di bawah ini ke notepad kita
" Dim speaks, speech
speaks="hi good morning"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks "
Tanpa Tanda Petik (")