try this:


Private Sub CommandButton1_Click()

Dim response

response = MsgBox("Do you wish to order another item?", vbYesNo)

If response = vbYes Then

TextBox3.SetFocus
exit sub
Else

ThisWorkbook.Close True

End If


End Sub