ReplaceXML

Function ReplaceXML(TempString)

 TempString = Replace(TempString,"<","&lt;")
 TempString = Replace(TempString,">","&gt;")
 TempString = Replace(TempString,"&","&amp;")
 TempString = Replace(TempString,"'","&apos;")
 TempString = Replace(TempString,"""","&quot;")
 ReplaceXML = TempString

End Function