Как найти одинаковые элементы в массиве в vba??

обычный перебор:
sub ppp()
dim mm(10)
for ii = 1 to 10
mm(ii) = val(Inputbox("введите элемент с номером"+ii))
for jj = 1 to ii -1
if mm(ii) = mm(jj) then
msgbox("элемент "+ii +" равен элементу "+jj)
endif
next jj
next ii
end sub