Option Explicit
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
      Alias "URLDownloadToFileA" ( _
        ByVal pCaller As LongPtr, _
        ByVal szURL As String, _
        ByVal szFileName As String, _
        ByVal dwReserved As Long, _
        ByVal lpfnCB As LongPtr _
      ) As Long
    Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" _
      Alias "DeleteUrlCacheEntryA" ( _
        ByVal lpszUrlName As String _
      ) As Long


Public Const ERROR_SUCCESS As Long = 0
Public Const BINDF_GETNEWESTVERSION As Long = &H10
Public Const INTERNET_FLAG_RELOAD As Long = &H80000000
Public Const folderName As String = "c:\temp\"
Sub Sample()
    Dim Ret, a As Variant

  a = "https://kidigo.com.ua/userfiles/трипл_фан_метал72.png"
    
Ret = URLDownloadToFile(0, a, "C:\try\1.png", 0, 0)
End Sub

Option Explicit
Sub TEST()
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (ThisWorkbook.Path & "\linx_create_txt_for_txtdelenia_temporar.txt")
Shell "NotePad linx_create_txt_for_txtdelenia_temporar", vbNormalFocus
End Sub

Sub Menu()
On Error Resume Next
Application.CommandBars("панель").Delete
With Application.CommandBars.Add("панель", Temporary:=True)
    With .Controls.Add
        .Caption = "Test"
        .FaceId = 2
        .Style = 3
        .OnAction = "Test"
    End With
   .Visible = True
End With
End Sub