Create Some XML - Public Content

Sub openTag(ByRef xml As String, tag As String) 
    xml = xml & "<" & tag & ">" 
End Sub 
 
Sub closeTag(ByRef xml As String, tag As String) 
    xml = xml & "</" & tag & ">" 
End Sub 
 
Sub addTag(ByRef xml As String, tag As String, content As String) 
    openTag xml, tag 
    xml = xml & content 
    closeTag xml, tag 
End Sub 
 
Sub addElem(ByRef xml As String, elem As String) 
    xml = xml & elem 
End Sub