Multiple language support in excel

Hai friends,
I am facing a problem.I have a application which having one Non-English Field AcName.I am storing and displaying it farsi.VB textbox I able display it by this code
text1.font.characterset=178[this time langauge in languagebar will be farsi]
I am displaying the Account Details in a excel report.There also I have to display this field in farsi.what code i have to use for that.even if I select farsi as Current language When I am generating Excel, Langauge selected in langauge bar is changing to US English.My Coding also I am listing Down
Pls help me on this

[VBA]
Set xlsApp = New Excel.Application
xlsApp.Visible = True
Set book = xlsApp.Workbooks.Add
Set sheet = book.Worksheets(1)
sheet.Cells(4, 1) = "AMOUNT"
sheet.Cells(4, 2) = "AC NAME"
sheet.Cells(4, 3) = "ACNO"
I = 5
While (Not Rs.BOF And Not Rs.EOF)
With sheet
.Cells(I, 1) = Rs!Prz_Amount & "$"
.Cells(I, 2)= Rs!Chk_AcNameFarsi
.Cells(I, 3) = Rs!Chk_AcNo
I = I + 1
Rs.MoveNext
End With
Wend
[/VBA]

Filson