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

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

Public Function GetFilePath() As String
On Error GoTo ErrorHandler
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать"
        .Title = "Выберите файл"
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
    End With
    
GoTo Ends:
ErrorHandler:
  'MsgBox "Вы ничего не выбрали!"
  GetFilePath = ""
Ends:
End Function

Sub Chitalka()
Const ForReading = 1
Dim sFP$, Ss() As String, i&, text$
Cells.Clear
sFP = GetFilePath
If sFP <> "" Then
    With New Scripting.FileSystemObject
        With .OpenTextFile(sFP, ForReading)
            text = .ReadAll
            'Ss = Split(text, vbNewLine)
        End With
    End With
    [A1] = text
'    For i = 0 To UBound(Ss)
'        Cells(i + 1, 1) = Ss(i)
'    Next i
End If
End Sub

Sub HideListBox(ByRef LstBx As ListBox)
If LstBx.Visible Then LstBx.Visible = False Else LstBx.Visible = True
End Sub

Sub HideListBox(ByRef Lbl As Label)
If Lbl .Visible Then Lbl.Visible = False Else Lbl.Visible = True
End Sub

Sub HideButton(ByRef Bttn As CommandButton)
If Bttn.Visible Then Bttn.Visible = False Else Bttn.Visible = True
end sub

Private Sub CommandButton1_Click()
HideButton CommandButton2
End Sub

Private Sub CommandButton2_Click()
HideListBox ListBox1
End Sub

Private Sub CommandButton3_Click()
HideLabel Label1
End Sub

Private Sub Workbook_Open()
Application.OnKey "{ESC}", "Proc1"
End Sub

Sub Proc1()
ThisWorkbook.Sheets("Лист3").Select
End Sub

Dim LastRow as long
Dim Rng as Range
Dim Addr$
Addr = "A1:B12,C8:D14"
Set Rng = Range(Addr)
LastRow= Rng.Cells(Rng.Cells.Count).Row