バイナリで書くときに行き詰りましたorz
要は、自分が今どんな状態なのか
把握してないんですよね・・・

AscBにしてもChrBにしても、バイナリ書きが
できません。
BASP21のBinaryWriteを使ってるんですが、
Xor値をとった答えが書き出せないんです。

Dim bobj
Dim BinAll
Dim BinXor
Dim wlen
Set bobj = CreateObject("basp21")
BinAll = bobj.BinaryRead("C:\test01.txt")
BinXor = bobj.AscB(BinAll,1,1) Xor bobj.AscB(BinAll,2,1)

wlen = bobj.BinaryWrite(BinXor,"C:\test02.txt")