خروجي گرفتن از textbox بصورت unicode utf-8

[Amir Ghasemiyan]

با عرض سلام و خدا قوت به مديراي عزيز

دوستان من يه مشكلي برام پيش اومده، ميخوام محتويات يك textbox رو با يونيكد utf8 خروجي بگيرم و در يك متغير ذخيره كنم.

ممنون ميشم كمكم كنيد

اين كد رو خودم پيدا كردم ولي با اين كد خروجي بصورت فايل بهم ميده كه مد نظر من نيست.
فكر كنم جناب وطن پرست بهتر بتونن كمكم كنن. اين كد مربوط به ADO هست

Sub Save2File(sText, sFile)
    Dim oStream
    Set oStream = CreateObject("ADODB.Stream")
    With oStream
        .Open
        .Charset = "utf-8"
        .writetext sText
        .SaveToFile sFile, 2
    End With
    Set oStream = Nothing
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.