之前的都不是很正确，真正的原因是10说的

因为：
If Option1.Value Then Text1.Text = "456546"
Else: <if> Text1.Text = "dddddd" <then>
<end>
End If
End Sub

强！又加深理解了～～

Private Sub Command1_Click()
If Option1.Value Then
Text1.Text = "456546"
Else: Text1.Text = "dddddd"
End If
End Sub
或者：
Private Sub Command1_Click()
If Option1.Value Then
Text1.Text = "456546"
Else
Text1.Text = "dddddd"
End If
End Sub
都对的