Textbox to utf8

[amiroo]

Hi guys

I have a textbox that contain some text in Persian. I need this text as utf-8 unicode string

I have a code but this code export a file,I need save it as a variable

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

 

[pgc01]

I have a textbox that contain some text in Persian. I need this text as utf-8 unicode string

I have a code but this code export a file,I need save it as a variable

Hi amiroo

utf-8 encodes the characters with a variable number of bytes.

I think, therefore, that you should use a byte array to store the code.

dim b() as byte

It would also help to know what you intend to do with the variable.