If    docNode.ParentNode.NodeName = "container"     And docNode.Nodename = "destinations"    Then '  Адресат
            Print     docNode.Nodename
    'tmpstr =     Chr(FF048) + |Destination>&lt;LegalEntity><KodOrgOut>123</KodOrgOut><NameOrg></NameOrg><StructuralSubdivision></StructuralSubdivision><Post></Post></LegalEntity><FIO></FIO></Destination>|
            'docNode.FirstChild.NodeValue =tmpstr
            
            Set newDocNode = docrootnode.CreateElementNode("Destination")
            Call docNode.AppendChild(newDocNode)
            Set newTextNode = docrootnode.CreateTextNode("456")
            'Call docNode.AppendChild(newTextNode)
            If docNode.HasChildNodes Then
                Print "дочка!"
                'Set DocNode =  docNode.FirstChild 
                'Set newDocNode = docrootnode.CreateElementNode("xxx")
                'Call docNode.AppendChild(newDocNode)
            End If
            Set newDocNode = docrootnode.CreateElementNode("LegalEntity")
            Call docNode.AppendChild(newDocNode)
            Set newTextNode = docrootnode.CreateTextNode("123йцу")
            Call docNode.AppendChild(newTextNode)
        End If
    End If