Dim test1(8) As Integer
Dim test2(8) As Integer
Dim a As Integer
dim j As Integer, i as Integer
Dim bolFound as Boolean
Dim intTest2Counter as Integer

test1(1) = 1
test1(2) = 2
test1(3) = 1
test1(4) = 3
test1(5) = 8
test1(6) = 2
test1(7) = 8
test1(8) = 3

intTest2Counter = 0
For j = 1 To 8
bolFound = False
for i = 1 to 8
if test2(i) = test1(j) then
bolFound = True
exit for
end if
next i
if not found then
test2(intTest2Counter) = test1(j)
intTest2Counter = intTest2Counter + 1
end if
Next j
End Sub