Function Url2File(sUrlFile As String, sPathName As String, Optional sLogin As String, Optional sPassword As String) As Boolean
'ZVI:2022-10-16 https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&TID=152767
  Dim FN As Integer
  On Error GoTo exit_
  If Dir(sPathName) <> "" Then Kill sPathName
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", sUrlFile, False, sLogin, sPassword
    .send
    If .Status <> 200 Then Exit Function
    FN = FreeFile
    Open sPathName For Binary Access Write As #FN
    Put #FN, , .responseBody
exit_:
    If FN Then Close #FN
    Url2File = .Status = 200
  End With
End Function

Sub PdfFromUrl()
  
  Dim sUrl As String, sFileName As String
  Dim sId As String, sPeriod As String
  
  ' Build sUrl
  sId = "11175198"
  sPeriod = "2020"
  sUrl = "https://bo.nalog.ru/download/bfo/pdf/" & sId & "?period=" & sPeriod
  
  ' Build FileName:  11175198-2020.pdf 
  sFileName = ThisWorkbook.Path & "\" & sId & "-" & sPeriod & ".pdf"
  
  ' Download & Show result
  If Url2File(sUrl, sFileName) Then
    MsgBox "Downloaded file:" & vbLf & sFileName, vbInformation, "Success"
  Else
    MsgBox "Can't download from" & vbLf & sUrl, vbCritical, "Error"
  End If
  
End Sub