Imports System
Imports System.Xml

Module Utility
    Public Sub ReplaceElement(ByVal oNode As XmlNode, ByVal strText As String)
        Dim oContent As XmlText
        Dim oDoc As XmlDocument

        oDoc = oNode.OwnerDocument
        oContent = oDoc.CreateTextNode(strText)

        oNode.ReplaceChild(oContent, oNode.FirstChild)
    End Sub

    Public Sub PlaceElement(ByVal oNode As XmlNode, ByVal strElement As String, ByVal strText As String)
        Dim oElement As XmlElement
        Dim oContent As XmlText
        Dim oDoc As XmlDocument
        Dim oNewNode As XmlNode

        oDoc = oNode.OwnerDocument
        oElement = oDoc.CreateElement(strElement)
        oContent = oDoc.CreateTextNode(strText)

        oNewNode = oNode.AppendChild(oElement)
        oNewNode.AppendChild(oContent)
    End Sub

End Module