Hi all, i'm trying to save chiense CHaracters to a textfile on my pc, here's what i have.

Code:
Private Sub CommandButton1_Click()
        ' create a Unicode text file with Chinese character
        ' Dan1 and English character D.
        Open "unicode.txt" For Binary As #1
        Put #1, , TextBox1.Text
        Close #1
      End Sub
The chinese characters i'm trying to save are these 3 words "简体字"

The textbox i'm using are 2.0 Forms and when pasting these 3 words on the textbox it displays properly after setting the font to Arial_Unicode_MS, Script is Chinese_GB2312

however when i click on the button what i get in my "unicode.txt" is ???

My font on my notepad for this textfile is also set to Arial_Unicode_MS, script : Chinese_GB2312. If i copy and paste the 3 chinese characters "简体字" it displays properly on my notepad.

Anyone know what's the code i'm missing to fix this problem?

thx