[Resolvido]Conversão matemática Latitude e Longitude (km total)

Boa tarde pessoal!

tenho esse calculo em uma planilha e preciso converter em vba mas esta complicado para os meus pequenos conhecimentos de cálculos.

=6371*(ACOS(COS(RADIANOS(90-D2))*COS(RADIANOS(90-D3))+SEN(RADIANOS(90-D2))*SEN(RADIANOS(90-D3))*COS(RADIANOS(E2-E3))))*1,15



o que ela faz pega as coordenadas de latitude e longitude e me retorna o quilometro total entre uma cidade e outra, estava a utilizar uma api do google maps mas simplesmente não funciona mais nem nas aplicações antigas, então resolvi pegar as coordenadas de todas as cidades brasileiras, utilizo um dlookup que me retorna a latitude e longitude

e ao clicar de um botão preciso que a formula acima me retorna o calculo certo.

segue link do anexo com a planilha e um access iniciado:

dropbox.com/s/bdw0dm7bgs0cktq/Localizacao.zip?dl=0

Grande Avelino Sampaio... tinha parado no ACOS mas já tinham tratado disso https://www.maximoaccess.com/t29889-resolvidofuncao-arco-cosseno]aqui no fórum

Código:

Dim MeuResultado As Double, x As Double

x = Cos((90 - Me.txtD2) * ((22 / 7) / 180)) * Cos((90 - Me.txtD3) * ((22 / 7) / 180)) + Sin((90 - Me.txtD2) * ((22 / 7) / 180)) * Sin((90 - Me.txtD3) * ((22 / 7) / 180)) * Cos((Me.txtE2 - Me.txtE3) * ((22 / 7) / 180))
MeuResultado = 6371 * ((Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)) * 1.15)
Me.txtResultado = MeuResultado

Utinha utilizado 22/7 para me aproximar de pi, mas 4.0 * Atn(1.0) é o mais correto

Código:

Dim MeuResultado As Double, x As Double

x = Cos((90 - Me.txtD2) * ((4.0 * Atn(1.0)) / 180)) * Cos((90 - Me.txtD3) * ((4.0 * Atn(1.0)) / 180)) + Sin((90 - Me.txtD2) * ((4.0 * Atn(1.0)) / 180)) * Sin((90 - Me.txtD3) * ((4.0 * Atn(1.0)) / 180)) * Cos((Me.txtE2 - Me.txtE3) * ((4.0 * Atn(1.0)) / 180))
MeuResultado = 6371 * ((Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)) * 1.15)

Achei que tinha lançado um desafio

Show meu amigo! muito obrigado!