XML Escape

VBA で文字列を XML Escapeする

Function escapeString(s As String)

s = Replace(s, "&", "&")

s = Replace(s, "<", "<")

s = Replace(s, ">", ">")

s = Replace(s, """", """)

s = Replace(s, "'", "'")

escapeString = s

End Function