[VBA]Sub snb()
With createobject("scripting.filesystemobject")
.createtextfile("C:\text3.xml").write replace(.opentextfile("C:\text1.xml").readall,"</data>", "<details>" & split(.opentextfile("C:\text.xml").readall,"</details>")(0),"<details>")(1) & "</details>" & "</data>"
End With
End Sub [/VBA]