VB combobox数据重复问题

向combobox中添加字符串，如果发现已经存在就不再添加了，不知道怎么做循环，请教

---

补充下
if i = 0 then

---

VB code:
Option Explicit

Private Sub Command1_Click()
Dim i As Long
Dim S As String

S = "12345" '需要增加的项

For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) <> S Then
'继续循环
Else
Exit Sub '不添加
End If
Next

Combo1.AddItem S '添加项S

End Sub