关于反向操作

Question

Private Sub Command2_Click()
Dim i As Integer
Dim j As Integer
Dim jd As Integer
Dim strTemp As String
s = Right$(Combo1.Text, 3)
strTemp = strTemp & s & ","
jd = Len(strTemp)
For i = 0 To 11
If Check1(i) Then
strTemp = strTemp & Check1(i).Caption & ","
End If
Next iIf Len(strTemp) = jd Then
MsgBox "请选择复选条件"
Exit Sub
End If
j = Len(strTemp)For i = 0 To 2
If Option1(i).Value = True Then
strTemp = strTemp & Option1(i).Caption
End If
Next i
If Len(strTemp) = j Then
MsgBox "请选择单选条件"
Exit Sub
End If
List1.AddItem strTempEnd Sub
这是正向操作代码
这段代码是把 s，Check1(i).Caption ，Option1(i).Caption添加到list中 
如LIST中现在显示 
268，语文，数学，美术，3 
358，数学，体育，物理，化学，2 
其中268=s,语文，数学，美术分别是刚才所选的Check1(i).Caption，3是 Option1(i).Caption 
如现在已经选完了第二项358那行，我看第一项268这行不合适，要求修改，这时点击list中的268，语文，数学，美术，3 这一行，那么Combo1将回到268这行，Check1(i)也要对应Check1(i).Caption返回到刚才所选的样子，如“语文”对应的是Check1(3)，“数学”对应的是Check1(5)，“语文”对应的是Check1(7)，那么他们将回到Check1(3)Check1(5)Check1(7)被选择的样子，Option1(i)也要对应Option1(i).Caption返回到刚才所选的样子，如“3”对应的是Option1(2).那么它也回到Option1(2)被选择的样子 
请问这个反向该怎么写，当然这个反向就可以把弹出的MsgBox这些去掉了
反向这个代码要写在list下