Sub WhichButton(answerButton As Shape)
    Dim theAnswer As String
    
    theAnswer = answerButton.TextFrame.TextRange.Text
    MsgBox ("You chose " & theAnswer)
End Sub