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
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)