با سلام
مشکل شما از آنجا نشات می گیرد که در درجه اول تابع نمایش فرم پیغام بایستی حتما یک خروجی مناسب داشته باشد . و در مرحله بعد بایستی این تابع تا زمان تعیین تکلیف پیغام فارسی نمایش داده شده ، معوق بماند .
با اضافه کردن خط زیر به ابتدای تابع مورد اول رفع می شود .
Button = ""
و با اضافه کردن خطوط زیر به انتهای تابع مورد دوم رفع می شود .
While Button = ""
dd = DoEvents()
Wend
MyMsgBox = Button
البته در صورتی که گرافیک خاصی برای نمایش پیغام فارسی در اکسس مد نظرتان نباشد روش بهتری و راحت تری نیز وچود دارد که در فایل پیوست آورده شده است .
پیروز و سربلند
کاویان