Excel and MapQuest API

MapQuest has changed their XML file and I'm no longer able to retrieve the distance and the time.

My VBA script is hung up on the following:

    Set req = New MSXML2.XMLHTTP
req.Open "GET", url, False
req.send

resp = req.responseText

Set xdoc = req.responseXML

refMiles = CSng(xdoc.SelectSingleNode("response / route / distance").Text)
refHours = CLng(xdoc.SelectSingleNode("response / route / time").Text) / 60 / 60

Does anyone have an idea how I can correct this?