Obter Latitude e Logitude

E ai pessoal,
mais uma vez eu recorro a vocês

seguinte, tenho um sistema que controlo fretes que usamos aqui na empresa, porem eu queria dar um Up nele, mas não consigo fazer a integração de um site para o Access.

eu queria que após digitar o um endereço ele pegue a latitude e longitude e mostre no formulário do access. Tinha uma macro que fazia isso direto do google, mas agora é pago.

o site que achei é travelaholics.com.br/ferramentas/qual-é-a-minha-latitude-e-longitude/ nele tem o campo endereço, latitude e longitude, minha ideia é digitar os dados no formulario do access e aparecer a latitude e longitude no access também sem precisar entrar no site e ficar copiando do site e colando no access manualmente

tem este site também mapacep.com.br, mas penso que seria mais complicado

se aguem puder me ajudar

Boa noite
Atente à regra 14 do Fórum para o mantermos organizado

consegui um "quase"

porém na parte de pegar o código no site e alimentar as textbox (txtLatitude e txtLongitude) não esta acontecendo

Código:

Function busca_Laitude_Longitude()
Dim ie

Set ie = CreateObject("internetexplorer.application")

ie.navigate "http://www.travelaholics.com.br/ferramentas/qual-%C3%A9-a-minha-latitude-e-longitude/"
ie.Visible = True

Do While ie.Busy And ie.ReadyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

ie.Document.getElementsByTagName("textarea")(0).Value = Form_frmCad_Transportadores.CEP
ie.Document.getElementsByClassName("greenbutton")(0).Click ' clica no botão que é a classe
    
Do While ie.Busy And ie.ReadyState <> "READYSTATE_COMPLETE"
DoEvents
Loop

Form_frmCidadeSUB.txtLatitude = ie.Document.getElementsByTagName("input")(0).Value
Form_frmCidadeSUB.txtLongitude = ie.Document.getElementsByTagName("input")(1).Value


ie.Quit

End Function

Boa noite
Porque diz que conseguiu um "quase"?
O valor não é lido? É lido e não é colocado na caixa de texto?

ele não apresenta os valores, porém analisei o código mais um pouco e o "input" estava na sequencia errada, sendo (6) e (7) o correto, mas mesmo assim eu não consigo obter os valores corretos

Código:

Form_frmCidadeSUB.txtLatitude = ie.Document.getElementsByTagName("input")(6).Value
Form_frmCidadeSUB.txtLongitude = ie.Document.getElementsByTagName("input")(7).Value

após digitar o endereço pra consultar, os números padrões de Latitude: 51,50000000 e Longitude:-0,10000000 são alterados para os números da localização solicitada. aqui esta o problema, é apresentado no access os valores padrões e não os solicitados

exemplo:
valores padrões

Latitude: 51,50000000
Longitude:-0,10000000

deverião ficar assim se eu busco pelo endereço: rua julio de mesquita, campinas

Latitude: -22,9002351
Longitude: -47,0546013