Dim msg, sapi
msg=InputBox("Powered by: www.p30-port.persianblog.ir")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg