这段代码如何改

Private Sub Command5_Click()
Dim i As Integer, iw As Integer, ie As Integer
Dim j As Integer
Dim jd As Integer, jt As Integer, jp As Integer
Dim strTemp As String
List1.RemoveItem (List1.ListIndex)
jd = Len(strTemp)
For i = 0 To 18
If Check1(i) Then
strTemp = strTemp & Check1(i).Caption & ","
End If
Next i
j = Len(strTemp)
For iw = 0 To 18
If Check2(iw) Then
strTemp = strTemp & Check2(iw).Caption & ","
End If
Next iwjp = Len(strTemp)
For ie = 0 To 18
If Check3(ie) Then
strTemp = strTemp & Check3(ie).Caption & ","
End If
Next iej = Len(strTemp)
For i = 0 To 1
If Option1(i).Value = True Then
strTemp = strTemp & Option1(i).Caption
End If
Next iList1.AddItem strTemp
End Sub
现在点击list里的某一行，然后我对一些复选等作了调整，点击Command5，然后把刚才在list里选定的那行删了，又从新添加一行新的，我现在想改成这个新的数据还是在刚才点击那行出现，也就是新数据在删除那行替换掉原来的数据，这个改怎么改呢