Dim msg,sapimsg = InputBox("Input please","speeking") Set sapi=CreateObject("sapi.spvoice")sapi.Speak msg