Botón Cerrar

If (MsgBox("¿Esta seguro de salir?", vbCritical + vbYesNo) = vbYes) Then
End
Else
Cancel = 1
End If