Конвертация html файла в xlsx с заменой символов

Imports Microsoft.Office.Interop.Excel
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As Object,
    ByVal e As EventArgs) Handles Button1.Click
 
        Dim xlApp As New Application()
        xlApp.DisplayAlerts = False ' скрыть диалог сохранения
        Dim xlWorkBook = xlApp.Workbooks.Open("Côte d'Ivoire_0103.xls")
        xlWorkBook.SaveAs("NewFileName.xlsx", XlFileFormat.xlOpenXMLWorkbook)
        xlWorkBook.Close()
        xlApp.Quit()
 
        releaseObject(xlApp)
        releaseObject(xlWorkBook)
 
 
    End Sub
 
 
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
 
End Class

        With New Excel.Application
            Dim Path As String = "D:\Côte d'Ivoire_0103.xls"
            Dim FileName As String = .Path & "\excelcnv.exe"
            Dim Arguments As String = "-oice """ & Path & """ """ & FileIO.FileSystem.GetFileInfo(Path).DirectoryName & "\" & IO.Path.GetFileNameWithoutExtension(Path) & ".xlsx""" & ""
            With New Process()
                .StartInfo.FileName = FileName
                .StartInfo.Arguments = Arguments
                .Start()
            End With
        End With

Imports EX = Microsoft.Office.Interop.Excel
Imports System.IO
'…
Private XL As EX.Application
Private WB As EX.Workbook
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    XL = New EX.Application
    XL.DisplayAlerts = False
    Dim fls() As String = Directory.GetFiles("C:\07\tst1905\", "*.xls") 'здесь д.б. ваш источник файлов
    Dim pt As String = Path.GetDirectoryName(fls(0)) & "\"
    For Each ff As String In fls
        WB = XL.Workbooks.Open(ff)
        WB.SaveAs(pt & Path.GetFileNameWithoutExtension(ff) & ".xlsx", 51) 'xlOpenXMLWorkbook
        WB.Close()
    Next
    XL.Quit()
    releaseObject(WB)
    releaseObject(XL)
End Sub

 With New Excel.Application
 
            Dim FileName As String = .Path & "\excelcnv.exe"
 
          ' ArrayOfFiles - это файлы с разрешением .xls
            For Each Path In ArrayOfFiles
 
                Dim Arguments As String = "-oice """ & Path & """ """ & FileIO.FileSystem.GetFileInfo(Path).DirectoryName & "\" & IO.Path.GetFileNameWithoutExtension(Path) & ".xlsx""" & ""
                With New Process()
                    .StartInfo.FileName = FileName
                    .StartInfo.Arguments = Arguments
                    .Start()
                    .WaitForExit()
                End With
            Next
        End With