xml_RootNode is not defined

Here is defined object with the same name as function name. So this cunstruction is not working xml_RootNode("parentNode").

```
Private Function xml_RootNode(xml_Node As Dictionary) As Dictionary
    Set xml_RootNode = xml_Node
    Do While Not xml_RootNode.Exists("parentNode")
        Set xml_RootNode = xml_RootNode("parentNode")
    Loop
End Function
```
