Msgbox Triggering An Event

Hello one and all

It may seem a rather simple question, though it continues to confound me -and I have searched to no avail :D

How do you trigger an event depending on what button is pressed on a msgbox?

For example, using a vbYesNo msgbox on a form, how can I assign events to either the Yes or the No option? Say, if "Yes" is clicked the focus would be set to a control on the form, and if "No" is clicked access would close down.

Any ideas?

I've currently got on the on click event of a command button (the bit in italics is fine, the bit in bold is not working!):-

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

Dim stDocName As String


MsgBox "Please select where you wish to save the exported file", vbOKOnly, "Save To Location"

stDocName = Month.Value
DoCmd.OutputTo acTable, stDocName, acFormatXLS

MsgBox "Do you want to select another History Extract?", vbYesNo, "Do you wish to continue?"

If intresponse = vbNo Then
DoCmd.Close
Else
Month.SetFocus
End If



Exit_Command3_Click:
Exit Sub

Err_Command3_Click:
MsgBox Err.Description
Resume Exit_Command3_Click

End Sub



But whether Yes or No is selected, the focus returns to the current form.

Cheers for any ideas