Google Maps Function to show Kilometers instead of meters.

Hey guys. I got this code from "TheAnalystCave" and think it worked quite well. The only things that confuses me is that I can't find how to change the value of distance. It shows meters to me but I want it to show Kilometers instead, any suggestions of where I can change that?

Public Function GetDistance(start As String, dest As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins="
    secondVal = "&destinations="
    lastVal = "&mode=car&language=pl&sensor=false"
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal
    objHTTP.Open "GET", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")
    If InStr(objHTTP.responseText, """distance"" : {") = 0 Then GoTo ErrorHandl
    Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = """value"".*?([0-9]+)": regex.Global = False
    Set matches = regex.Execute(objHTTP.responseText)
    tmpVal = Replace(matches(0).SubMatches(0), ".", Application.International(xlListSeparator))
    GetDistance = CDbl(tmpVal)
    Exit Function
ErrorHandl:
    GetDistance = -1
End Function

Public Function MultiGetDistance(ParamArray args() As Variant) As Double
    MultiGetDistance = 0
    Dim startLoc As String, endLoc As String, i As Long
    For i = LBound(args) To UBound(args) - 1
        startLoc = args(i): endLoc = args(i + 1)
        MultiGetDistance = MultiGetDistance + GetDistance(startLoc, endLoc)
    Next i
End Function

Use =Convert or change

GetDistance = CDbl(tmpVal)

to

GetDistance = CDbl(tmpVal)/1000

Got any quick way to show the distance in a cell? Now I've made a button which I have to press to show it, I kinda want it to show in a cell below once i press enter when the destination is filled in.

Originally Posted by Kenneth Hobson

Use =Convert or change

GetDistance = CDbl(tmpVal)

to

GetDistance = CDbl(tmpVal)/1000

If you mean that you have the inputs in A and B columns and the UDF formula in say C then that uses A and B then it should work.

That's exactly what I mean. So I write destinations "From: in A1" and "To: in A3" and I want to show the distance "Total distance xx km: in A6". What formula do I use for that?

Originally Posted by Kenneth Hobson

If you mean that you have the inputs in A and B columns and the UDF formula in say C then that uses A and B then it should work.

In A6:
=GetDistance(A1, A3)