PrivateFunctionCookieJoin(CookieAsString,ResponseHeaders)AsStringDimvAsVariant,iAsInteger,TAsStringv=Split(Cookie,";")DimOAsObjectSetO=CreateObject("Scripting.Dictionary")O.CompareMode=1Fori=0ToUBound(v)v(i)=Trim(v(i))T=Right(v(i),Len(v(i))-InStr(v(i),"="))O.AddSplit(v(…