Public Function jsonQuery(url As String, data As Dictionary, auth As auth, oldApi As Boolean) As Dictionary
  Dim token, login, payload As String
  Dim httpRequest As WinHttpRequest
  Dim httpResponse As String
  
  Set httpRequest = New WinHttpRequest
  token = auth.token
  login = auth.login
  
  With httpRequest
    '.Option(WinHttpRequestOption_RevertImpersonationOverSsl) = False
    .Open "POST", url, False
    .SetAutoLogonPolicy AutoLogonPolicy_Always
    '.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36"
    '.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056
    '.Option(WinHttpRequestOption_SelectCertificate) = "LOCAL_MACHINE\Root\" '"LOCAL_MACHINE\Root\Certum CA"
    '.Option(WinHttpRequestOption_SecureProtocols) = 8 + 32 '8 - SSL 2.0, 32 - SSL 3.0, 128 - TLS 1.0
    '.Option(WinHttpRequestOption_EnablePassportAuthentication) = True
    '.Option(WinHttpRequestOption_EnableCertificateRevocationCheck) = True
    '.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "https://127.0.0.1:1120", ""
    
    .SetRequestHeader "Content-Type", "application/json; charset=utf-8"
    .SetRequestHeader "Accept-Language", "ru"
    '.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36"
    '.setRequestHeader "Accept", "*/*"
    '.setRequestHeader "Host", "api.direct.yandex.com"

    If oldApi Then
      data.Add "token", token
    Else
      .SetRequestHeader "Authorization", "Bearer " & token
      .SetRequestHeader "Client-Login", login
    End If
    payload = JsonConverter.ConvertToJson(data)
    Debug.Print payload
    .Send payload   '<==== Строка, в которой происходит ошибка
    .WaitForResponse
    Debug.Print .Status & .StatusText
    httpResponse = .ResponseText
    Debug.Print httpResponse
    Set jsonQuery = JsonConverter.ParseJson(httpResponse)
  End With
  Set httpRequest = Nothing
End Function