Retrieve expected data from 3 files

Set objSet = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("scripting.filesystemobject")
Set objTS = objFSO.OpenTextFile("label.txt")


While Not objTS.AtEndOfStream
    strLine = objTS.ReadLine
    arr = Split(strLine, ",")
    Call objSet.Add(arr(0), arr(1))'<id, label>
Wend
objTs.Close


Set objTS = objFSO.OpenTextFile("content6.txt")
While Not objTS.AtEndOfStream
    strLine = objTS.ReadLine
    arr = Split(strLine, ",", 2)
    If Not Isempty(objSet(arr(0))) Then
        objSet(arr(0)) = strLine & objSet(arr(0)) & ","
    End if
Wend
objTs.Close

Set objTS = objFSO.OpenTextFile("link10.txt")
While Not objTS.AtEndOfStream
    strLine = objTS.ReadLine
    arr = Split(strLine, ",", 3)
    If Not Isempty(objSet(arr(0))) Then
        Wscript.Echo objSet(arr(0)) & arr(2)
    End if
Wend
objTs.Close