如何将@data.file curl命令转换为VBA语言？

Sub DownloadFile()
    Dim url As String
    Dim filePath As String
    
    url = "@data.file的URL地址"
    filePath = "保存文件的路径和文件名"
    
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    http.Open "GET", url, False
    http.send
    
    If http.Status = 200 Then
        Dim stream As Object
        Set stream = CreateObject("ADODB.Stream")
        
        stream.Open
        stream.Type = 1
        stream.Write http.responseBody
        stream.SaveToFile filePath, 2
        stream.Close
        
        MsgBox "文件下载成功！"
    Else
        MsgBox "文件下载失败！"
    End If
    
    Set http = Nothing
End Sub