Dim msg As String, button As Variant, title As String, response As Variant
msg = "Vehicle is Shopped - Do you want to dispatch anyway?"
button = vbYesNo + vbDefaultButton2
title = "Vehicle Shopped!"
response = MsgBox(msg, button, title)
If response = vbYes Then
'what to do if yes
Else
'what to do if not
End If