Как преобразовать файл .txt в html. XML файл через VBA?

Question

у нас есть файлы в формате .txt, которые необходимо преобразовать в HTML -base. XML файл, и файл .txt выглядит следующим образом:

<?xml version="1.0" encoding="UTF-8"?>
<ListBoxData> 
    <CategoriesAndProducts>   
        <Categories>RetailCADTerm Investment30 DaysLess $5 Million</Categories>
    <Products>  
        <Product>2.30</Product>
    </Products> 
    </CategoriesAndProducts>  

    <CategoriesAndProducts> 
        <Categories>RetailCADTerm Investment30 DaysGreater $5 Million</Categories>
    <Products>  
        <Product>2.15</Product>
    </Products> 
    </CategoriesAndProducts> 

    <CategoriesAndProducts> 
        <Categories>RetailUSDTerm Investment30 DaysLess $5 Million</Categories>
    <Products>  
        <Product>2.06</Product>
    </Products> 
    </CategoriesAndProducts> 
</ListBoxData>

Как преобразовать это. Текстовый файл в html. xml через VBA?

Спасибо!

(Примечание: ниже приведен скрипт, который может помочь при штурме, но не преобразуется в HTML -base. XML):

PrivaPrivate Sub ConvertFile_Click()
Dim s As String
Application.ScreenUpdating = False
s = Application.GetOpenFilename(FileFilter:="TXT File,*.txt")
Workbooks.Open Filename:=s
s = Replace(s, ".txt", ".xml")
ActiveWorkbook.SaveAs Filename:=s, _
        FileFormat:=xlXMLSpreadsheet, ReadOnlyRecommended:=False, 
CreateBackup:=False
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub