outer xml

Public Function outtagcontent(ByVal XML As String, ByVal tagname As String)
        XML = Mid(XML, InStr(XML, "<" & tagname))
        XML = Mid(XML, 1, InStr(XML, "</" & tagname & ">") + Len("</" & tagname & ">"))
        outtagcontent = XML
End Function