Functions to decode or encode text for use in an XML file. VBScript / VBA

DecodeXML.vba

Public Function DecodeXml(TextToDecode As String) As String
    'Take text that has been encoded for XML and change it to normal text
    
    Dim Res As String
    
    Res = Replace(Replace(Replace(Replace(TextToDecode, "&quot;", """"), "&gt;", ">"), "&lt;", "<"), "&amp;", "&")
    
    DecodeXml = Res
End Function

Public Function EncodeXml(TextToEncode As String) As String
    'Take text and change special chars so that it can be included in an XML file
    
    Dim Res As String
    
    Res = Replace(Replace(Replace(Replace(TextToEncode, "&", "&amp;"), ">", "&gt;"), "<", "&lt;"), """", "&quot;")
    
    EncodeXml = Res
End Function

you forgot replace single quote ' to '