ماژول پرسش از کاربر جهت ادامه کار

[royasaz_bam]

سلام اساتید و دوستان محترم لطفا ماژول مبنی بر پرسش از کابر جهت ادامه کار که در صورت زدن دکمه yes ماژول ادامه یابد و در صورت زدن no کنسل شود اگر نمونه هم بگذارید ممنون میشوم

[شاپرک]

If MsgBox("ادامه؟", vbYesNo, "سوال") = vbYes Then
' ادامه
Else
' انصراف
End If

[hasanr]

برای راحتی کار دوستان مطلع ، یه نمونه آماده کردم که ماژولش نوشته شده ولی در کد کنسل کردن ایراد داره
لطفا تصحیح بفرمایین

[hasanr]

کد جناب شاپرک درسته اما به نظرم میاد دوستمون دنبال ماژول هستن که یک بار کد نویسی بشه و در دفعات بعد هر جا که خواستیم فقط تابع رو فراخوانی کنیم