Lo que tendrias que hacer es comparar item por item, desde el numero que necesites, algo asi:
Código:
Dim contador As Integer
contador = 0
For i = (List1.ListCount - 10) To List1.ListCount - 1
If List1.List(i) = List1.List(i + 1) Then
contador = contador + 1
End If
Next i
If contador = 10 Then MsgBox "Son Iguales"
Saludos
