Dim xmlDoc  As DOMDocument
    Dim nodRoot As IXMLDOMElement
    Dim nodChild As IXMLDOMText
    
    Set xmlDoc = New DOMDocument
    xmlDoc.setProperty "SelectionLanguage", "XPath"
    xmlDoc.async = False
    xmlDoc.Load ("D:\xmlname.xml")
    
    Set nodRoot = xmlDoc.getElementsByTagName("Root").Item(0)
   
    Set nodChild = xmlDoc.createTextNode("<Row><X>2</X><Y>r</Y>")
nodRoot.appendChild nodChild

With New FileSystemObject
  txt=.OpenTextFile(sPath).ReadAll
End With

Public Sub ReplaseFileContent(sFPSource$, sFPDestination$)
    With New FileSystemObject
        .CreateTextFile(sFPDestination, True).Write .OpenTextFile(sFPSource, Forreading).ReadAll
    End With
End Sub

        Shell Environ("ProgramFiles") & "\notepad++\notepad++.exe " & _
          IIf(iLine = 0, "", "-n" & iLine & " ") & sPath, vbNormalFocus

        Shell Environ("ProgramFiles") & "\notepad++\notepad++.exe " & _  
IIf(iLine = 0, "", "-n" & iLine & " ") & """" & sPath & """", vbNormalFocus

Function OpenFileInNotepadpp(sPath$) As Boolean
On Error GoTo ErrorHandler
OpenFileInNotepadpp = False
    If fsoFileExists(sPath) Then
        Shell Environ("ProgramFiles") & "\notepad++\notepad++.exe " & sPath, vbNormalFocus
        OpenFileInNotepadpp = True
    Else
        MsgBox "Файл """ & sPath & """ не найден", vbExclamation
    End If
GoTo Ends:
ErrorHandler:
    MsgBox Err.Description & "(" & Err.Number & ");" & _
        vbNewLine & "Источник ошибки: " & Err.Source & _
        vbNewLine & "Процедура: OpenFileInNotepadpp"
  OpenFileInNotepadpp = False
Ends:
End Function

Sub Test()

'On Error GoTo ErrorHandler
Dim Wb As Workbook
    Set Wb = GetObject("D:\Book\2.xlsx")

    MsgBox Wb.Worksheets(1).[B1]
     Wb.Worksheets(1).[B1] = 333
    Wb.Close True
    Set Wb = Nothing
End Sub