گرفتن متن فارسی و نمایش آن از فایل متنی

[GTAexcess]

سلام دوستان
بنده قصد دارم از یک فایل متنی فارسی که با utf-8 هم ذخیره کردم را در یک لیست نمایس بدم منتها متن بصورت بهم ریخته میاد حتی فونت لیست هم روی tahoma arabic میذارم .

[babyy]

تا اونجا که من یادمه باید سیستم عامنل طرف زبان فارسی رو ساپورت میکرد! و ربطی به تنظیمات داخل برنامه نداشت

باید از language region اینا میرفتی و utf8 و زبان آسیا رو روی سیستم ویندوزت نصب میکردی تا برنامه ها به این مشکل بر نخورن

[Ghoghnus]

کد:

Dim objStream, strData

Set objStream = CreateObject("ADODB.Stream")

objStream.CharSet = "utf-8"
objStream.Open
objStream.LoadFromFile("iranled.txt")

strData = objStream.ReadText()

objStream.Close
Set objStream = Nothing

امیدوارم این بهتون کمک کنه