Public Sub ListSameEntrie(ListB As Object, Index As Integer)
  Dim LIndex As Long
  Dim LB     As ListBox
 
  ' ListIndex suchen
  For Each LB In ListB
    If LB.Index = Index Then
      LIndex = LB.ListIndex
      Exit For
    End If
  Next LB