m_AppPath = App.Path
If Right$(m_AppPath, 1) <> "/" Then m_AppPath = m_AppPath & "/"
Dim xmldom
Set xmldom = CreateObject("Microsoft.XMLDOM")
xmldom.Load m_AppPath & "values.xml"
Set values_node = xmldom.selectSingleNode("//Street")
Debug.Print xmldom.documentElement.Text
Set xmlnode = xmldom.documentElement
For i = 0 To xmlnode.childNodes.length - 1
sid = xmlnode.childNodes(i).childNodes(0).Text
Debug.Print sid
Next