Unable to select node data from XML

I am having trouble pulling the miles from the XML. What am I doing wrong?


Below is the XML code that is returned by Google maps:

<?xml version="1.0"?>
<DistanceMatrixResponse>
    <status>OK</status>
    <origin_address>165 Kingsley St, Long Branch, NJ 07740, USA</origin_address>
    <destination_address>1600 Pennsylvania Ave NW, Washington, DC 20500, USA</destination_address>
    <row>
        <element>
            <status>OK</status>
            <duration>
                <value>13077</value>
                <text>3 hours 38 mins</text>
            </duration>
            <distance>
                <value>348882</value>
                <text>217 mi</text>
            </distance>
        </element>
    </row>
</DistanceMatrixResponse>

Select allOpen in new window

This is my Class module code for the form that sends the parameters:

Private Sub cmdCalculate_Click()

    Me.IDistance = GetDistance(Me.FromAddress, Me.ToAddress)

End Sub


'***********************************************************************
'* Fetches Google map query results, returning travel time and mileage *
'***********************************************************************


Public Function GetDistance(origin_address As String, destination_address As String)

Dim strURL              As String
Dim oXH                 As Object
Dim strBodytxt          As String
Dim strDistance         As String
Dim dblRoundTrip        As Double
Dim docDOM              As DOMDocument60
Dim objRoot             As IXMLDOMElement
Dim TheContents         As String
    
    '***********************************************
    '* Assemble the origin and destination strings *
    '***********************************************
    strURL = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" & _
    Replace(Replace(Replace(origin_address, " ", "+"), ",", "+"), "++", "+") & _
    "&destinations=" & _
    Replace(Replace(Replace(destination_address, " ", "+"), ",", "+"), "++", "+") & _
    "&mode=driving&sensor=false&units=imperial"
    
    Set oXH = CreateObject("msxml2.xmlhttp")

    '*********************************
    '* Get the Google results string *
    '*********************************
    With oXH
        .Open "get", strURL, False
        .send
        strBodytxt = .responseText
    End With
        
        
    Set docDOM = New DOMDocument60
    docDOM.resolveExternals = False
    docDOM.validateOnParse = False
    
    '*****************************
    '* Load the XML into the DOM *
    '*****************************
    docDOM.loadXML (strBodytxt)
    
    '********************
    '* Find the mileage *
    '********************
    
    TheContents = docDOM.XML
    
    Debug.Print TheContents     ' check to see if the XML got there
    
    Set objRoot = docDOM.documentElement
    strDistance = objRoot.selectSingleNode("Distance").childNodes("text").text
    dblRoundTrip = CDbl(Mid(strDistance, 1, (Len(strDistance) - 3)))  ' One Way

    '**********************
    '* Calculte roundtrip *
    '**********************
    GetDistance = dblRoundTrip * 2

    Set oXH = Nothing
    Set objRoot = Nothing
 
End Function

Select allOpen in new window

Thanks, in advance, for your help.

Lenny