...or if you want to get real fancy, I use this one for jokes sometimes:
(defun Speak (txt / sapi)
;from user sea.haven @ https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/usb-flash-drive-serial-number/m-p/9631481#M402295
;txt - string, of text to have computer speak
(if (eq (type txt) 'STR)
(progn
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-put sapi 'SynchronousSpeakTimeout 1)
(vlax-invoke-method sapi 'WaitUntilDone 0)
(vlax-invoke sapi "Speak" txt 0)
(vlax-release-object sapi)
);progn
);if
(princ)
);defun
Use like so:
(Speak "Program Complete.")