如何将VB6 TextBox数据（阿拉伯语）导出到MS Excel

Question

我正在尝试将VB6文本框中包含的数据导出到VB6中的MS Excel。 它适用于英文数据，但不适用于阿拉伯数据。 VB6 TextBox正确显示语言（英语和阿拉伯语），也正确地导出英语数据，但是当它将阿拉伯数据导出到excel时，excel无法正确显示。 Excel在阿拉伯语的情况下显示一些垃圾字符。

我试图将Excel工作表的字体更改为某些阿拉伯语支持的字体，如阿拉伯语排版，Arial Unicode MS，Microsoft Sans Serif等但未成功。我没有找到任何改变字体字符集的方法。

我在VB6应用程序中使用Microsoft Excel 14.0对象库将数据导出到Excel。

使用以下代码：

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets("Sheet1")

xlSheet.Cells(1, 1).Value = TextBox.text
xlSheet.SaveAs "C:\Test.xlsx"

在上面的代码中，TextBox包含阿拉伯数据。