ជាដំបូងសូមបើកម្មវិធី Notepad រួចចម្លងកូដទាំងអស់នេះទៅដាក់ក្នុង Notepad របស់អ្នក

Dim message, sapi
 message=InputBox("What do you want me to say?","Speak to Me")
 Set sapi=CreateObject("sapi.spvoice")
 sapi.Speak message

បន្ទាប់មកនៅត្រង់ Save as type សូមយក All file ចំណែកឈ្មោះសូមដាក់ Speak.vbs ឬអ្វី
ក៏បានឱ្យតែមានកន្ទុយជា .vbs។

ឥឡូវសូមបើក Speak.vbs រួចសរសេរអ្វីដែលអ្នកចង់ឱ្យវាអានរួចចុច Ok។

ជួនកាលវាក៏អាចធ្វើឱ្យមិត្តភក្តិអ្នកភ្ញាក់ផ្អើលនឹងគន្លឹះមួយនេះផងដែរ។