Private Sub CommandButton1_Click()
TextBox1.Text = "Rizio"
Selection.Value = "66"

Dim r, c
c = ActiveCell.Column
r = ActiveCell.Row

MsgBox r & "x" & c
r = r + 1
Cells(r, c).Value = "67"


 Dim xml As String

    xml = "<root><person><name>Me </name> </person> <person> <name>No Name </name></person></root> "
    Dim oXml As MSXML2.DOMDocument60
    Set oXml = New MSXML2.DOMDocument60
    oXml.LoadXML xml
    Dim oSeqNodes, oSeqNode As IXMLDOMNode

    Set oSeqNodes = oXml.SelectNodes("//root/person")
    If oSeqNodes.Length = 0 Then
       'show some message
    Else
        For Each oSeqNode In oSeqNodes
             Debug.Print oSeqNode.SelectSingleNode("name").Text
        Next
    End If

'Dim strXML As String
'
'strXML = "<root><person><name>Me </name> </person> <person> <name>No Name </name></person></root> "
'
'Dim objXML As MSXML2.DOMDocument60
'
'    Set objXML = New MSXML2.DOMDocument60
'
'    If Not objXML.LoadXML(strXML) Then  'strXML is the string with XML'
'        Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason
'    End If
'
'Dim point As IXMLDOMNode
'Set point = objXML.FirstChild
'
'
'Debug.Print point.SelectSingleNode("name").Text
'Debug.Print point.SelectSingleNode("person").Text

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

TextBox1.Text = "Mau"

End Sub