Создать процедуру, переписывающую в новый массив b все неповторяющиеся значения исходного массива. - VB

Dim B()
 
Sub main() 'запускать вот это!
Massiv = Array(1, 2, 3, 3, 2, 6) 'задаем любой массив любыс способом
SetB Massiv 'закидываем в бэ уникальные значения
' вывода нет - результат в отладчике ))
End Sub
 
Sub SetB(ByVal Arr)
  n1 = LBound(Arr)
  n2 = UBound(Arr)
  ReDim B(0 To 0)
  For i = n1 To n2
    C = 0
    For j = n1 To n2
      If Arr(i) = Arr(j) Then C = C + 1
    Next j
 
    If C = 1 Then
      B(UBound(B)) = Arr(i)
      ReDim Preserve B(UBound(B) + 1)
    End If
 
  Next i
  ReDim Preserve B(UBound(B) - 1)
End Sub