Modulo g-distancia en visual basic

No dices qué errores te da, ni dónde... con lo que es prácticamente imposible ayudarte efectivamente. Lo único que se me ocurre ( y no soy experto en visual) es que no hayas activado la librería o referencia para trabajar con los objetos xml que creas.

Los errores que me salen son los siguientes:

No se admiten instrucciones de asignación Let y Set -----> Linea 13

Los argumentos de método se deben incluir entre los paréntesis -----línea 14

Como los anteriores hay unos cuantos y después están los siguientes:

No esta definido el tipo xmlhttp60 ----línea 4

"" Domdocument60 ------ línea 5

"" Ixmldomnode ----línea 6

No esta definido el tipo xmlhttp60

Te falta registrar la librería para trabajar con el objeto xml, como te señalaba antes, será la Micorsoft XML o algo así (debes buscar la misma que tenías registrada en Access): https://www.youtube.com/watch?v=9ZZCfYdSP5M

No se admiten instrucciones de asignación Let y Set -----> Linea 13

Elimina esas lineas y cuando declaras las variables, hazlo así:

Dim MyRequest As New XMLHTTP60  -> linea 2 y elimina la linea "Set MyRequest = New XMLHTTP60" (y lo mismo con el resto de set....)

Los argumentos de método se deben incluir entre los paréntesis -----línea 14

Ésta es fácil, haz lo que te dice:

MyRequest.Open ("GET", "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=" _
& ORIGEN & "&destinations=" & DESTINO & "&key=API-GOOGLE")

no le saco punta :( he agregado la lreferencia system.xml y nada.... he visto el tutorial y agrego la libreria xml como dice pero me pierdo con el codigo 

No tengo instalado vb6 y no puedo hacer pruebas, pero dado que vba y vb6 no son el mismo lenguaje de programación ( aunque comparten mucho) entra dentro de lo normal que un código VBA no te funcione a la primera en vb6.

La referencia que usas en access es la Microsoft Xml 6.0, o al menores la que uso yo al trabajar con códigos similares, y esa referencia es la que te habilita para trabajar con los objetos XMLHTTP60, DomDocument60... que declaras en tu código. Desconozco si la librería que has registrado tiene esos objetos (supongo que no, porque sigues con problemas...)

En cuanto al código en sí, solo tienes que hacer los cambios que te indicaba antes.

he reducido los errores a 6 asi llevo el codigo:

Imports.MSXML2
Module Module2

Function G_DISTANCIA(ORIGEN As String, DESTINO As String)

Dim MyRequest As XMLHTTP60
Dim mydomdoc As DomDocument60
Dim distanceNode As ixmldomnode
G_DISTANCIA = 0

On Error GoTo exitRoute
ORIGEN = Replace(ORIGEN, " ", "%20")
DESTINO = Replace(DESTINO, " ", "%20")

MyRequest = New XMLHTTP60
MyRequest.Open("GET", "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=" _
& ORIGEN & "&destinations=" & DESTINO & "&key=API-GOOGLE")
MyRequest.send

mydomdoc = New DomDocument60
mydomdoc.LoadXML(MyRequest.responseText)

distanceNode = mydomdoc.SelectSingleNode("//row/element/distance/value")
If Not distanceNode Is Nothing Then G_DISTANCIA = (distanceNode.Text / 1000) & ""
exitRoute:

distanceNode = Nothing
mydomdoc = Nothing
MyRequest = Nothing

End Function

End Module

ahora me quedan los siguientes errores:

Error BC30203 Se esperaba un identificador.  linea 1

Error BC30002 No está definido el tipo 'XMLHTTP60'. linea 6

Error BC30002 No está definido el tipo 'DomDocument60'. linea 7
Error BC30002 No está definido el tipo 'ixmldomnode'. linea 8
Error BC30002 No está definido el tipo 'XMLHTTP60'. linea 15
Error BC30002 No está definido el tipo 'DomDocument60'. linea 20

Seguimos en la misma, todos esos errores son el mismo: no has registrado la librería adecuada para trabajar con esos objetos.

Por otra parte, veo que no me has hecho caso con las correcciones del código, y así no creo que te funcione aunque no te de errores...

Module Module2

Function G_DISTANCIA(ORIGEN As String, DESTINO As String)

Dim MyRequest As New Xmlhttp60
Dim mydomdoc As New DomDocument60
Dim distanceNode As New ixmldomnode
G_DISTANCIA = 0

On Error GoTo exitRoute
ORIGEN = Replace(ORIGEN, " ", "%20")
DESTINO = Replace(DESTINO, " ", "%20")

MyRequest.Open("GET", "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=" _
& ORIGEN & "&destinations=" & DESTINO & "&key=API-GOOGLE")
MyRequest.send

mydomdoc.LoadXML(MyRequest.responseText)

distanceNode = mydomdoc.SelectSingleNode("//row/element/distance/value")
If Not distanceNode Is Nothing Then G_DISTANCIA = (distanceNode.Text / 1000) & ""
exitRoute:

distanceNode = Nothing
mydomdoc = Nothing
MyRequest = Nothing

End Function

Vale.... creo que solucione el problema de la libreria.

esto es lo que tengo ahora mismo :

Imports MSXML2

Module Module2

Function G_DISTANCIA(ORIGEN As String, DESTINO As String)

Dim MyRequest As New XMLHTTP60
Dim mydomdoc As New DOMDocument60
Dim distanceNode As IXMLDOMNode
G_DISTANCIA = 0

On Error GoTo exitRoute
ORIGEN = Replace(ORIGEN, " ", "%20")
DESTINO = Replace(DESTINO, " ", "%20")

MyRequest.open("GET", "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=" _
& ORIGEN & "&destinations=" & DESTINO & "&key=&key=AIzaSyDB5ZXeg7HMfRt3vePCe2PC--4K0jokf2E")
MyRequest.send

mydomdoc.LoadXML(MyRequest.responseText)

distanceNode = mydomdoc.SelectSingleNode("//row/element/distance/value")
If Not distanceNode Is Nothing Then G_DISTANCIA = (distanceNode.Text / 1000) & ""
exitRoute:

distanceNode = Nothing
mydomdoc = Nothing
MyRequest = Nothing

End Function

End Module

ahora mismo solo me informa que estas 3 ultimas

distanceNode = Nothing
mydomdoc = Nothing
MyRequest = Nothing

el valor asignado a MyRequest, mydomdoc, distanceNode  no se utiliza nunca

Si te da error en esas últimas líneas, bórralas que no aportan nada

Vale, ya no me da error ahora solo que no me da el valor del xml jajaja. Con lo rápido que lo solucione en access

Quita esta línea, porque si por el medio te salta algún error, no te enteras de los que está pasando:

On Error GoTo exitRoute