'Ask if you like chocolate. Give an appropriate response.
Sub Chocolate()
    Dim chocolateAnswer
    
    chocolateAnswer = MsgBox("Do you like chocolate?", vbYesNo)
    If chocolateAnswer = vbYes Then 'The user likes chocolate.
        MsgBox ("I like chocolate, too.")
    Else 'The user does not like chocolate.
        MsgBox ("Vanilla is a good choice.")
    End If
End Sub