转义xml文件特殊符号

 '转义xml文件特殊符号。     
 Function XmlReplace(ByVal strxml2 As String) As String       
  strxml2 = strxml2.Replace("&", "&")       
  strxml2 = strxml2.Replace("<", "&lt;")        
  strxml2 = strxml2.Replace(">", "&gt;")        
  strxml2 = strxml2.Replace("'", "&apos;")        
  strxml2 = strxml2.Replace("""", "&quot;")       
  Return strxml2    
 End Function