怎么写

Private Sub Command1_Click() 
Dim a(3) As Integer 
Dim i As Integer, j As Integer 
For dd = 0 To 3 
If Check1(dd).Value = 1 Then 
MsgBox dd 
End If 
Next 
End Sub 
现在Check1(0)---Check1(3)任何一个被选MsgBox dd都对 
如果Check1(0)---Check1(3)选择两个过大于两个如3个或4个 
那么想让MsgBox dd & ff 
如现在Check1(0)被选，Check1(2)被选 
那么MsgBox dd & ff 实际为 MsgBox 弹出 02 
如现在Check1(0)被选，Check1(2)，Check1(3)被选， 
那么想让MsgBox dd & ff 循环弹出 
02 
03 
23 
也就是两两循环 
如果用 
For dd = 0 To 3 
for ff = dd + 1 to 3 
If Check1(dd).Value = 1 Then 
MsgBox dd & ff 
End If 
Next 
next 
End Sub 
这样是不对的 
因为我要的只是被选择的那几个互相循环，而不是全部循环， 
该怎么写