Public Function GetInListPositionFromObject(objObjectWithList As Object, _
  sSearchString As String) As Integer
Dim i As Integer
 
For i = 0 To objObjectWithList.ListCount - 1
    If InStr(1, UCase(objObjectWithList.List(i)), UCase(sSearchString)) > 0 Then
        GetInListPositionFromObject = i    ' Treffer !
        Exit Function
    End If
Next
GetInListPositionFromObject = -1    ' -1 means not found !
End Function