Copiar uma URL qualquer do código fonte

[Paulo Ricardo Gonçalves]

Olá, eu preciso copiar o endereço URL de um botão de uma página. Eu uso o VBA para criar um objeto, abrir uma página do Internet Explorer, navegar até um certo site, e nesse site eu preciso copiar o endereço url de um botão que está no meio da página. No código fonte da página o botão "Ver" está na Tag "a". Eu consigo clicar o botão (ver1.Click) e acessar a url em uma nova página (abre uma nova página automaticamente), como eu poderia copiar a url, ao invés de abri-la? 

       

Sub Name()
    'Declara objIE1 como um objeto
    Dim objIE1 As Object
    'Cria o Objeto1 a partir do Internet Explorer
    Set objIE1 = CreateObject("InternetExplorer.Application")
    'Executa com o Objeto1 as tarefas abaixo
    With objIE1
        .Visible = True
        .navigate "sitequalquer"
        
            While .Busy Or .ReadyState <> 4:
            DoEvents:
            Wend
        .Document.getElementById("drpMunicipioBusca").Focus
        .Document.getElementById("drpMunicipioBusca").Value = "83739"
        .Document.getElementById("btnBuscar").Click
            While .Busy Or .ReadyState <> 4:
            DoEvents:
            Wend
        
        Dim ver1 As Object
               
        For Each ver1 In .Document.GetElementsByTagName("A")
            If ver1.innertext = "Ver" Then
               ver1.Click
                
                Exit For
            End If
        Next
        
End With

End Sub