Yes or No Msgbox not working

DEEstroyer · Jul 14th 2011

Hi all,

Code

Sub Auto_Open()
Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String


QuestionToMessageBox = "Click Yes."
YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "DO AS I SAY")
If YesOrNoAnswerToMessageBox = vbNo Then
MsgBox "I would not have done that. Now your in trouble. Please try again.", vbYesNo
If YesOrNoAnswerToMessageBox = vbNo Then
MsgBox "Wow you are difficult. Now is your chance to go in the opposite direction.", vbYesNo
Else
MsgBox "Much better but you're still under my wrath. Try anything and you will fail", vbYesNo
End If
Else
MsgBox "Sorry I lied. Click 'No' this time", vbYesNo, "Hahahahahaha"
If YesOrNoAnswerToMessageBox = vbNo Then
MsgBox "Cool. I didn't think you were actually going to click it."
Else
MsgBox "Now your catching on."
End If
End If
End Sub

Display More

Now for the problem. Every time I get to the second msgbox and click either yes or no, it only shows this line in the third msgbox:
"Wow you are difficult. Now is your chance to go in the opposite direction."

Any thoughts why? (Sorry if confusing)

**norie** · Jul 14th 2011

Re: Yes or No Msgbox not working

Message boxes don't return strings.

Wigi · Jul 14th 2011

Re: Yes or No Msgbox not working

Hello

You write:

Code

If YesOrNoAnswerToMessageBox = vbNo Then
        MsgBox "I would not have done that. Now your in trouble. Please try again.", vbYesNo
        If YesOrNoAnswerToMessageBox = vbNo Then

So, at first you take No, so you enter the True part of the IF. AGAIN, you have the same condition which tests if you answered No on the first MsgBox. Obviously, this will be true (just as it was true the first time), hence, whatever you type you will also end up in the same part of the code.

DEEstroyer · Jul 14th 2011

Re: Yes or No Msgbox not working

Now it makes sense. Thank you norie and Wigi for the help.

Yes or No Msgbox not working

Participate now!

Share