ejemplo de otion button excel

Private Sub CommandButton1_Click()
Dim puntos As Integer
If OptionButton4 = True Then
puntos = puntos + 20
End If
If OptionButton7 = True Then
puntos = puntos + 20
End If
If OptionButton10 = True Then
puntos = puntos + 20
End If
MsgBox ("tu resultado es de: " + Str(puntos))
End Sub