I have in my program built up a string forming an XML document. This document then needs to be saved to a file. See Code below.

This generates the XML file fine except when i want to use an extended chatacter, such as é in the data.

I need to therefore when saving the string encode it in UTF-8.

I'm using VBA for Microsoft Office 2000, one of the constraints laid down from upon high.

Thanks for any help you can give me.



Code:
Private Sub cmdGenerateXML_Click() 
    Dim sString As String 
    Dim iFile As Integer 
    
    'Can XML be geneated?(i.e. has it been loaded) 
    gbGenerationAllowed = True 
    If gbGenerationAllowed Then 
          
      
     'Form the main XML string by calling each of the seperate files 
      
     sString = "<CEVOLUTION_CONFIG>" 
     sString = sString + genSystemConfigObjectXML() 
     sString = sString + genContextObjectsXML() 
     sString = sString + genUserConfigObjectsXML() 
     sString = sString + genContextSettingsXML() 
     sString = sString + genPickListXML() 
     sString = sString + "</CEVOLUTION_CONFIG>" 
    
      
      'Write the string out 
      iFile = FreeFile() 
      
      Open path_to_xml & "\A.XML" For Output As #iFile 
      Print #iFile, sString 
      Close #iFile 
    
        MsgBox ("XML Generation Successful") 
        Application.Worksheets("MAIN").Activate 
    Else 
        MsgBox ("Cannot Generate XML") 
        Application.Worksheets("MAIN").Activate 
    End If 

End Sub