'VbScript Sub OnFormCancel Dim bResult ' comment out either line below to compare messagebox/msgbox behaviour bResult = Application.MessageBox ("Are you sure you want to cancel?", apYesNo, "Cancel?") 'bResult = msgbox ("Are you sure you want to cancel?", apYesNo, "Cancel?") If bResult = apNo Then ThisEvent.Result = False End If If bResult = apYes Then ThisEvent.Result = True End If End Sub Call OnFormCancel
Solved! Go to Solution.