たくさんのお返事ありがとうございます。

たとえばこれができないんです。
最後のxorの計算の行が「型が一致しません」というエラーになります。
BASP21使ってるんですが・・・

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