LogFileName ="zahlen.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set LogFile = fso.OpenTextFile(LogFileName,2,True)
 
TheOldArray = Array(16,7023,7000,7009,7000,55,16,10009,5788,7023,5789,5789)
TheNewArray = RemoveDuplicates(TheOldArray)
 
For each ID in TheNewArray
LogFile.WriteLine ID
Next
 
 
Function RemoveDuplicates(theArray)
    set objDict = CreateObject("Scripting.Dictionary")
    objDict.add theArray(1), empty
 
    for index = 1 to uBound(theArray)
        if not objDict.exists(theArray(index)) then
            objDict.add theArray(index), empty
        end if
    next
 
    RemoveDuplicates = objDict.Keys
    set objDict = nothing
End Function