Sub bb()
Dim v$(), x, cl As Collection
  Set cl = New Collection
  v = Split("Найти повторяющиеся записи в массиве. " & _
    "Подскажите, пожалуйста, как в массиве быстро найти повторяющиеся записи")
  On Error Resume Next
  For Each x In v
    cl.Add Empty, x
    If Err Then
      MsgBox "Повторяющийся элемент массива: " & x
      Err.Clear
    End If
  Next
End Sub