We've created a monster! Everyone in the office is running this one, and it's driving the boss crazy.
(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