Closing / Ending a mxd

I have a dialog box with a cancel button on it. I want the whole mxd to close down when they click on the Cancel button. My button is written as such :

Private Sub cmdCancel_Click()
End

End Sub

What do I type to close the mxd???