' exakte Suche unter Berücksichtigung der
    ' Groß-/Kleinschreibung
    Index = -1
    With Liste
      lngCount = .ListCount - 1     <---------------
      For I = lngStart To lngCount
        If .List(I) = strItem Then
          Index = I: Exit For
        End If
      Next I
    End With