كيفية تحويل النص إلى صوت بأستخدام المفكرة

Dim msg, sapi
msg=InputBox("أدخل النص المراد تحويله إلى صوت ولكن أكتبه باللغة الأنجليزية أو الفرنسية–زوروا منتدانا المتواضع على هذا الرابط http://shababfacebook.forumegypt.net ","برنامج تحويل الكتابة إلى صوت ينطقها الكمبيوتر")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg