dann hast du wohl nicht ordentlich gesucht.  Ich habe eine Lösung von  Copilot bekommen, und der sucht auch nur im Web.

die Pfade mußt du natürlich noch anpassen. Für nächste Mal. Vermeide Datein zu verlinken, die so groß sind. 

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    

Sub PDFHerunterladen()
    Dim URL As String
    Dim Speicherpfad As String
    Dim Erfolg As Boolean
    
    ' Setzen Sie den Link zur PDF-Datei
    URL = "https://learn.microsoft.com/pdf?url=https%3A%2F%2Flearn.microsoft.com%2Fde-de%2Fsql%2Freporting-services%2Ftoc.json%3Fview%3Dsql-server-ver16"
    
    ' Legen Sie den Speicherpfad für die heruntergeladene Datei fest
    Speicherpfad = "C:\Pfad\Zum\Speichern\meine-pdf-datei.pdf"
    
    If URLDownloadToFile(0, URL, Speicherpfad, 0, 0) = 0 Then
        MsgBox "PDF wurde erfolgreich heruntergeladen und unter " & Speicherpfad & " gespeichert."
    Else
        MsgBox "Fehler beim Herunterladen der PDF-Datei."
    End If
End Sub