VB编程:在5个复选框中选中几个，按“确定”后在文本框显示选中的项目,怎样实现？？

\'check1(0)至check1(4)为checkbox数组,
Private Sub Command1_Click()
\'command1.caption=\"确定\"
Text1.Text = \"\"
For i = 0 To 4
If Check1(i).Value = Checked Then
Text1.SelText = Check1(i).Caption & \"(\" & i & \")\" & \"被选中\" & vbCrLf
Else
Text1.SelText = Check1(i).Caption & \"(\" & i & \")\" & \"未选中\" & vbCrLf
End If
Next i
End Sub