كيف اجعل صندوق الرسائل يتحكم ب الكود ؟

هذا الكود .. يفترض به ان يظهر لك رسالة التاكد من اتمام العملية قبل الشروع بها ..

فاذا كانت الاجابة نعم .. يشرع بالعملية .. واذا كانت لا .. يتوقف ..

Private Sub Command15_Click()

Dim strExample As String
Dim Response As VbMsgBoxResult


        strExample = "Are you sure you want to run this operaion"
    
        If ([Trans Type] = [add]) Then
        MsgBox LCase(strExample), vbYesNo, , "Entry Check - åá ÇäÊ ãÊÃßÏ", Response
            If Response = VbMsgBoxResult.vbYes Then
            DoCmd.RunMacro "Addition", , ""
            End If
        End If
                       

        
        If ([Trans Type] = [sub]) Then
            MsgBox LCase(strExample), vbYesNo, "Entry Check - åá ÇäÊ ãÊÃßÏ"
            If Response = VbMsgBoxResult.vbYes Then
            DoCmd.RunMacro "Subtract", , ""
            End If
       
       
        End If

End Sub

ولكن يظهر ان هناك خطأ في فهمي ..

فهناك خطأ في هذا الكود من خلال تحقيق YES OR NO حيث ان الرسالة تظهر

ولكن التفعيل لا يعمل للجملة الشرطية بعدها ..

مالذي اغفلته يا ترى ؟

برجاء المساعدة مع جزيل الشكر