One of Paul's suggestions, but if you really want to use option buttons then something like this:

Private Sub OptionButton0_Click()
  If OptionButton0 Then
    Selection.Tables(1).Cell(1, 1).Range.Text = "Scorre = 0"
  End If
End Sub
Private Sub OptionButton1_Click()
  If OptionButton1 Then
    Selection.Tables(1).Cell(1, 1).Range.Text = "Scorre = 25"
  End If
End Sub
Private Sub OptionButton2_Click()
  If OptionButton2 Then
    Selection.Tables(1).Cell(1, 1).Range.Text = "Scorre = 50"
  End If
End Sub
Private Sub OptionButton3_Click()
  If OptionButton3 Then
    Selection.Tables(1).Cell(1, 1).Range.Text = "Scorre = 75"
  End If
End Sub