[求助]VB6单选框判断

下面的代码是练习题：
Private Sub Command1_Click()
p1 = "姓名：" & Text1.Text & Chr(13)
p2 = "年龄：" & Text2.Text & "岁" & Chr(13)
p3 = "现就职于：" & Text3.Text & Chr(13)
p4 = "性别：" & IIf(Option1.Value, "男", "女") & Chr(13)
p5 = "婚姻状况：" & IIf(Option3.Value, "已婚", "未婚") & Chr(13)
p6 = "学历：" & Combo1.Text & Chr(13)
p7 = "职称：" & Combo2.Text
p = p1 & p2 & p3 & p4 & p5 & p6 & p7
MsgBox p, , Text1.Text & "的个人情况介绍"
End Sub

IIf函数只能判断2个单选框！我想问问各位前辈，如果我是三个单选框该用什么函数来判断？并且把它赋值给P5