Option Explicit
Sub example()
Dim dataExample As Variant
dataExample = Array(1, 2, 1, 1, 4, 5, 3, 1)
Dim dic As Object
Dim key As String
Dim i As Long
Set dic = CreateObject("Scripting.Dictionary")
For i = LBound(dataExample) To UBound(dataExample)
key = CStr(dataExample(i))
If Not dic.exists(key) Then
Call dic.Add(key:=key, Item:=dataExample(i))
End If
Next
dataExample = dic.items
For i = LBound(dataExample) To UBound(dataExample)
Debug.Print Format$(i, "000"); ":"; dataExample(i)
Next
End Sub