مشكلة بسيطة في الكود! أرجو حلها

إليك الكود بعد التعديل أعمل نسخ ولصق فقط

If Me.NewRecord Then
If MsgBox("  هل تريد بالفعل تغيير اسم الزبون لهذه الفاتورة ؟ ", vbYesNo, " تنبيه ") = vbNo Then
       Cancel = True
       SendKeys "{ESC}"
       Exit Sub
     End If
     Else
     Exit Sub
     End If

:) مشكور جداً أخي مصلح الحريصي

فقط غيرت تغيير طفيف وضعت Exit Sub بعد Then وليس بعد Else ، لأنني أردت عند اضافة NewRecord لا تظهر الرسالة والتغيير هو :-

If Me.NewRecord Then
Exit Sub
     Else

If MsgBox("  هل تريد بالفعل تغيير اسم الزبون لهذه الفاتورة ؟ ", vbYesNo, " تنبيه ") = vbNo Then
       Cancel = True
       SendKeys "{ESC}"
       Exit Sub
     End If

     End If

مرة ثانية لك الشكر الجزيل