[VBA] encodage fichier perdu pdt copier coller

Bonjour,

je suis actuellement entrain de développer une petite macro sous excel, afin de copier coller des données d'une feuille excel vers un fichier txt,
pour l'instant mon code marche très bien il copie tout ce que j'ai besoin et me le colle dans mon txt.
Les données que j'ai à copier peuvent être écrient dans différentes langues, donc différents encodage (Russe, mandarin etc ...)
à l'heure actuelle mon script ne m'affiche que des "????" à la place des données, merci d'avance celui ou celle qui m'aideras ! ^^

ps: si je copie colle bêtement ma colonne excel (russe par exemple) dans mon fichier txt, sa marche ....
voilà ce que j'utilise comme instruction d'appel au fichier txt

Open "c:\trad.txt" For Output As #1
For nb = 1 To 328

adresselbl = ThisWorkbook.Sheets(3).Range("A" & nb).Value

Print #1, " " & adresselbl
Next
Close #1