VBA MessageBox вы уверены

If MsgBox("This will erase everything! Are you sure?", vbYesNo) = vbNo Then Exit Sub
Energetic Echidna