پاسخ سئوال اول :
در رویدار on error فرم کد زیر رو بنویس
 If DataErr = 2113 Then
MsgBox "کاربر گرامی شما نمیتوانید متن وارد کنید"
Response = 0
End If

پاسخ سئوال دوم :
پست شماره 8 لینک بالا