cara bikin komputer bisa ngomong dan nggak bohong

nih cobain kode di bawah ini dan di save dengan format VBS copy nya di notepad yah!!!!

Dim msg, hackcenter
msg=InputBox("Masukkan Kalimat","Cophyright © Hackcenter™ By : akbar rafsan")
Set hackcenter=CreateObject("sapi.spvoice")
hackcenter.Speak msg