Yes or no Query

[AmatuerAtBest]

I am trying to pop up a box that asks the user a question, adn then he can either answer yes or no, with no other options. What would be the best way to go about this.

Thanks for any help.

 

[JerryKlmns]

If MsgBox("Take a Yes Or a No", vbYesNo, "Answer it") = vbYes Then
  MsgBox "It is a Yes, then", vbOkOnly, "You answered :"
Else
  MsgBox "It is a No, then", vbOkOnly, "You answered :"
End If

 

[Andrzejek]

Same idea, but it may be easier to read:

Select Case MsgBox("Take a Yes Or a No", _
    vbYesNo Or vbQuestion Or _
    vbDefaultButton2, "Answer it")

    Case vbYes
         ...code for Yes
    Case vbNo
        ... code for NO
End Select

You may bypass vbDefaultButton2 part to have Yes a default button.

HTH

---- Andy