Private Sub Option1_Click()
If Option1.Value = True Then
Text1.Text = Option1.Caption
Else
Text1.Text = Option2.Caption
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.Text = Option2.Caption
Else
Text1.Text = Option1.Caption
End If
End Sub