DupetoCombo

Function CheckDup(MyValue As Variant, MyCombo As ComboBox) As Boolean
Dim I
For I = 0 To MyCombo.ListCount - 1
If MyCombo.List(I) = MyValue Then
CheckDup = True
Exit Function
End If
Next I
CheckDup = False
End Function