Salvar Imagem Web em Pastas local

Prezados,
Preciso de ajuda no seguinte aspecto... Estou criando uma macro para entrar no site dos correios, verificar um AR e salvar a imagem numa pasta local, porém,  não sei como salvar esta imagem, segue macro até o ponto que sei:

Sub Salvar_Imagem_Web()
   Dim Dc_Usuario As String
   Dim Dc_Senha As String
   Dim Dc_URL As String
   Dim objIE As New InternetExplorer 'Referencie "Microsoft Internet Controls"
   Dim linha1 As String
   Dim resp As String
   
   'Abre o IE
   objIE.Visible = True
       
   'Define os dados de acesso e link da página de login
   Dc_Usuario = "89208447"
   Dc_Senha = "1224"
   Dc_URL = "http://www.correiohibridoreverso.com.br/sgd/"
   
   'Navega até o link informado
   objIE.Navigate2 Dc_URL
   
   'Espera até que o IE carregue por completo
   Do Until objIE.Busy = False Or objIE.ReadyState = READYSTATE_COMPLETE
       DoEvents
   Loop

   Application.Wait Now + TimeValue("00:00:08")

   'Nessa parte você deve conhecer a propriedade "name" dos elementos input do site que irá logar
   objIE.Document.all("codUsuario").innerText = Dc_Usuario
   objIE.Document.all("senha").innerText = Dc_Senha
   objIE.Document.all("btnOk").Click
   
   Do Until objIE.Busy = False Or objIE.ReadyState = READYSTATE_COMPLETE
       DoEvents
   Loop
       
   Application.Wait Now + TimeValue("00:00:05")
       
           linha1 = "JC366211958BR"
 
               objIE.Navigate2 "http://www.correiohibridoreverso.com.br/sgd/ConsultarObjetoDiversoServlet?acao=0"
   
   Do Until objIE.Busy = False Or objIE.ReadyState = READYSTATE_COMPLETE
       DoEvents
   Loop

   Application.Wait Now + TimeValue("00:00:10")
               
   objIE.Document.all("txtCodObjetoDiverso").innerText = linha1
   objIE.Document.all("btnConsultar").Click
   
   Do Until objIE.Busy Or objIE.ReadyState = READYSTATE_COMPLETE
       DoEvents
   Loop

   Application.Wait Now + TimeValue("00:00:05")

               objIE.Navigate2 "http://www.correiohibridoreverso.com.br/sgd/ImageServlet?codObjeto=" & linha1 & "&acao=2"
   
End Sub


A partir deste ponto (objIE.Navigate2 "http://www.correiohibridoreverso.com.br/sgd/ImageServlet?codObjeto=" & linha1 & "&acao=2"), preciso salvar esta imagem em uma pasta local do meu micro!