新建2个选项按钮控件，并添加组，分别添加以下代码

Private Sub optb1_Click()
 MsgBox "选项1"
End Sub

Private Sub optb2_Click()
 MsgBox "选项2"
End Sub