Threads hva gjør denne? Threads(arrID(m))

Jeg har et script som ser slik ut:

Do
  arrID = arrID & "," & rsEntries("DocID")
  arrRE = arrRE & "," & rsEntries("DocParent")
  arrSU = arrSU & "," & rsEntries("DocMenuTitle")
  arrSUB = arrSUB & "," & rsEntries("DocSub")
  arrSEQ = arrSEQ & "," & rsEntries("DocPriority")
  rsEntries.MoveNext
Loop while not rsEntries.eof

arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")
arrSUB = Split(arrSUB,",")
arrSEQ = Split(arrSEQ,",")

Function Threads(intID)   
  For m = 1 to Ubound(arrID)
    If Cint(arrRE(m)) = Cint(intID) Then
   
        If Cint(arrID(m)) = Cint(strID) OR Cint(arrID(m)) = 2 Then
       
        Else   
            Threads = Threads & "<ul class=xptext>"
            Threads = Threads & "<a href=""#"""
            Threads = Threads & " onClick="""
            Threads = Threads & "opener.document.formchange.txtDocID.value='" & strID & "';"
            Threads = Threads & "opener.document.formchange.txtSub.value='" & arrSub(m) & "';"
            Threads = Threads & "opener.document.formchange.txtMenuTitle.value='" & strNavn & "';"
            Threads = Threads & "opener.document.formchange.txtUnderNavn.value='" & arrSU(m) & "';"
            Threads = Threads & "opener.document.formchange.txtUnderID.value='" & arrID(m) & "';"
            Threads = Threads & "opener.document.formchange.txtPriority.value='" & strSeq & "';"
            Threads = Threads & "window.close()"">" & arrSU(m) & "</a>" & Threads(arrID(m))
            Threads = Threads & "</ul>"
        End if     
     
    End If       
Next
End Function

Dette virker ikke da lister det kun ut post en i menyen!

Men hvis jeg fjerner Threads(arrID(m)) i:
Threads = Threads & "window.close()"">" & arrSU(m) & "</a>" & Threads(arrID(m))

Så den blir slik:
Threads = Threads & "window.close()"">" & arrSU(m) & "</a>"

Så virker det? Hva gjør Threads(arrID(m)) ?????