新人求助啊，急，用VB做一份个人简历的程序,谢谢

代码：
Private Sub Command1_Click()
Dim i As Integer
Label3.Caption = "个人简历" & vbCrLf
Label3.Caption = Label3.Caption & "姓名:" & Text1.Text & vbCrLf
Label3.Caption = Label3.Caption & "年龄:" & Text2.Text & vbCrLf
For i = 0 To 1
If Option1(i) Then
Label3.Caption = Label3.Caption & "性别:" & Option1(i).Caption & vbCrLf
End If
Next i
For i = 0 To 2
If Option3(i) Then
Label3.Caption = Label3.Caption & "学历:" & Option3(i).Caption & vbCrLf
End If
Next i
For i = 0 To 2
If Option6(i) Then
Label3.Caption = Label3.Caption & "职业:" & Option6(i).Caption & vbCrLf
End If
For i = 0 To 3
If Check1(i) Then
Label3.Caption = Label3.Caption & Check1(i).Caption & "；"
End If
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
Text1.Text = ""
Text2.Text = ""
For i = 0 To 1
Option1(i).Value = False
Next i
For i = 0 To 2
Option2(i).Value = False
Next i
For i = 0 To 2
Option3(i).Value = False
Next i
For i = 0 To 3
Check1(i).Value = False
Next i
End Sub