关于如何在列表框不重复的问题

Question

做一个cmd按钮和一个列表框、一个组合框。
在点击cmd的时候，把组合框的内容添加到列表框中，请问，如何防止列表框的内容重复？？
以下是我的源代码：
Private Sub Command1_Click()
Dim i%, k As Boolean
For i = 1 To 100
If List1.List(i) = List1.List(i + 1) Then k = False
If k = False Then
Exit Sub
Else
k = True
List1.AddItem Combo1.Text
End If
NextEnd Sub还请各位指点一下。