Public Function ItemExists(oControl As Object, ByVal sItem As String) As Boolean
  Dim i As Long
 
  With oControl
    For i = 0 To .ListCount - 1
      If .List(i) = sItem Then
        ItemExists = True
        Exit For
      End If
    Next i
  End With
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de