This thread was started on TheSwamp, http://www.theswamp.org/index.php?topic=14549.0, and you guys might have fun with it also.
Code:(defun c:SayIt (/ Phrase$ Sapi) (if (setq Phrase$ (getstring "\nEnter phrase: " t)) (progn (setq Sapi (vlax-create-object "Sapi.SpVoice")) (vlax-invoke Sapi "Speak" Phrase$ 0) (vlax-release-object Sapi) );progn );if (princ) );defun c:SayIt