大神们，可以帮忙看看这道题吗

参考代码：
'第3题
Private Sub Form_Load()
Combo1.AddItem "高一年级"
Combo1.AddItem "高二年级"
Combo1.AddItem "高三年级"
End Sub
'第4题
Private Sub Command1_Click()
Dim xm As String, xb As String
Dim i As Integer, msg As String
If Text1.Text = "" Then MsgBox "请输入您的姓名", vbQuestion, "出错": Exit Sub '第5题代码
If Option1(0).Value Then xb = Option1(0).Caption Else xb = Option1(1).Caption
For i = 0 To 4
If Check1(i).Value Then xm = xm & " " & Check1(i).Caption
Next i
If xm = "" Then MsgBox "请选择要参加的项目", vbQuestion, "出错": Exit Sub '第6题代码
msg = Combo1.Text & Text1.Text & "，" & xb & "，您选择的项目是" & xm
msg = msg & vbCrLf & "请确认是否正确"
i = MsgBox(msg, vbYesNo + vbInformation, "确认")
'这里应该点击不同按钮之后有不同反应，题目没有要求就不写了
End Sub