如何向一个文件中写入非ASCII字符（ASCII码在128-255之间）？这在 VB3 中按常规方法就可以很好处理。但是，自 VB4 起，微软引入 Unicode 后，此问题就显得有些麻烦。方法如下：
Dim a As Byte '如果你不用 Unicode，微软推荐使用 Byte 类型替换 String 类型
a=&HF5 '此处直接给处 ASCII 码即可
Open "test.dat" For Binary As #1
Put #1, , a
Close (1)