Макрос не мой, и я особо не разбираюсь в них, подскажите что нужно поменять, что все заработала, ошибка выскакивает после выгрузки файла в базу

Private Function login() As String
   Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   objHTTP.setOption(3) = ""
   objHTTP.Open "GET", addressID + "act/_login?entry_point=/tree_mapm.html&logname=" + _
   loginID + "&password=" + passwordID, False
   'On Error GoTo sendError
   objHTTP.send ""    

   If (dbg) Then
       MsgBox (objHTTP.responsetext)
   End If
   
   If objHTTP.Status <> 200 Then
       Call showError("Logining failed")
   End If
   
   Dim cookieString, pos1, pos2
   cookieString = objHTTP.getAllResponseHeaders()
   If (InStr(1, cookieString, "Set-Cookie", vbTextCompare) = 0) Then
       Call showError("logining failed")
   End If
   authorized = True
   
   cookieString = objHTTP.getResponseHeader("Set-Cookie")
   pos1 = InStr(1, cookieString, "sid=", vbTextCompare)
   pos2 = InStr(pos1 + 4, cookieString, ";", vbTextCompare)
   cookieString = Mid(cookieString, pos1 + 4, pos2 - pos1 - 4)
   
   login = cookieString
End Function


может кто поймет и подскажет что нибдуь?