Unicode-zeichen in ansi umwandeln?

Hallo,

ich öffne eine Unicode-Datei im Unicodeformat
set fileread1 = fs.OpenTextFile("c:\datei.txt",,,-1)
und lese sie aus. Darin sind auch soche Zeichen enthalten: 官
Die will ich dann in eine neue Textdatei (Ansicode) wieder reinschreiben.
Das geht natürlich nicht.
Fehler: "Ungültiger Prozeduraufruf oder ungültiges Argument"
Ich muss das Zeichen vorher in ANSI umwandeln.
Im Beispiel handelt es sich um ein Zeichen mit ASCII-Code 63, in ANSI ist das ein "?".

Aber wie geht das umwandeln?

[Edit]
Ich habs gefunden:
chrb(asc("体"))

Danke
Martin