seul le TxtBox des Forms2.0 Components permet l'affichage de l'Unicode.

'écrit l'unicode en fichier texte
Dim a(0 To 5) As Byte
a(0) = &HFF
a(1) = &HFE
a(2) = &H39
a(3) = &H4E
a(4) = &H44
a(5) = &H0
Open App.Path & "\unicode.txt" For Binary As #1
Put #1, , a
Close #1

'relis le fichier texte et l'affiche
 Dim txtline As String
Open App.Path & "\unicode.txt" For Binary As #1

txtline = InputB(2, #1)  ' always FF FE, skip them
txtline = InputB(4, #1)
Close #1

TextBox1.Text = txtline


voilà, tu as la base, avec un exemple unicode chinois (provenant de MSDN)
@+
PCPT