Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim oXml    
    Set oXml = CreateObject("Msxml2.DOMDocument")
    oXml.async = False
    oXml.validateOnParse = True
    localFile$ = "c:\XML\123.xml"
    localFile2$ = "c:\XML\333.xml"
    oXml.Load(localFile$)
    
    If oXml.parseError.ErrorCode = 0 Then 
        Print( "SUCCESS loading XML File")  
    Else  
        Print("Ошибка: " & oXml.parseError.reason & " в строке: " & oXml.parseError.line & " позиция: " & oXml.parseError.linepos)
    End If
    
    Set objXMLDOMNodeList = oXml.getElementsByTagName ("konteyner")
    Set     Item =    objXMLDOMNodeList.item(0)
    cont$ =  Item.xml
    
    Dim Strm As NotesStream
    Set Strm = session.CreateStream
    Call Strm.Open(localFile2$)
    Strm.WriteText (cont$)
    Call Strm.Close
End Sub