messaggio si/no

[secan]

Non sono sicuro al 100%, ma dovrebbe essere qualcosa del genere:

Sub bDelete_onClick
  Dim theAnswer
  theAnswer = MsgBox('Sei sicuro ...?',vbYesNo + vbExclamation)
  
  If (theAnswer = vbNo) Then
    MyForm_inSubmit = False
  End If
End Sub

Secan