Dim msg, sapi
msg=InputBox("Matneh khod ra vared namaeed! www.amper.ir","Sokhangoo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg