Function escapeString(s As String)
s = Replace(s, "&", "&")
s = Replace(s, "<", "<")
s = Replace(s, ">", ">")
s = Replace(s, """", """)
s = Replace(s, "'", "'")
escapeString = s
End Function
tags
---
VBA XML Escape