r = MsgBox("Izlazis iz aplikacije", vbYesNo)

If r = vbNo Then
    DoCmd.CancelEvent