XML SelectNodes Problem

[HimanshuSharma]

Hi All,
I have to select all the nodes which passes the xPath
//result/vicinity.
There wil be multiple nodes which will come as a result in the following URL.

I have created below function.
When I am using Single Node, it is working but when I am using SelectNodes it is resulting as 0.
Please assist me.
What I am doing wrong.
I have Googled a lot and found out that there is something as NameSpacemanager which I have to use, But I am new to VBA and have no idea how to use that.

Please assist me.

Function UserPlaces(Origin As String) As String
Dim himRequest As XMLHTTP60
Dim himDomDoc As DOMDocument60
Dim First As IXMLDOMNode
 
UserPlaces = 0

On Error GoTo exitRoute


Origin = Replace(Origin, " ", "%20")

Set himRequest = New XMLHTTP60
himRequest.Open "GET", "https://maps.googleapis.com/maps/api/place/nearbysearch/xml?location=" _
& Origin & "&radius=5000&types=food&sensor=false&key=YOUR KEY HERE", False
himRequest.send
Set himDomDoc = New DOMDocument60
himDomDoc.LoadXML himRequest.responseText

Set First = himDomDoc.SelectSingleNode("//result/vicinity")
Set nodeList = himDomDoc.SelectSingleNode("//result/vicinity")

If Not nodeList Is Nothing Then UserPlaces = nodeList.Text
'If Not First Is Nothing Then UserPlaces = First.Text
 
exitRoute:
Set nodeList = Nothing
Set First = Nothing
Set Second = Nothing
Set himDomDoc = Nothing
Set himRequest = Nothing

End Function