Try the Sub I posted above like this:
CopyTags "Source.xml", "Target.xml", "text:span"
If you don't want the <result> tags around the result, do this:
Sub WriteTags(sourceFile As String, targetFile As String, TagToCopy As String)
'*** Setup Source DOM
Dim DOM1 As DOMDocument
Set DOM1 =...