Put your code in the QueryUnload Event And add the nodefault command when the answer is No.

Answer=MessageBox("Are you sure you want to quit?",276,"Quit?")
Do Case
Case Answer=6 && Yes
Close Tables all
Close DataBases All
Clear Events
Case Answer=7 && No (What do I do here?)
nodefault
EndCase