HTAでバイナリエディタを簡易で作っています

CreateObjectでADODB.Streamを作ってバイナリでbufに読みました。

その後、別の配列に1バイトずつ保存しようと思い、このように打ちました
For i=0 To Size
Data(i)=buf(i)
Next

この直後にData()を見てみると全て0しか入っていません。そこで

For i=0 To Size
Data(i)=AscB(MidB(buf,i +1,1))
Next

とし、直後にData()をみるとデータがキチンと収まっています

そこで、
エクセルVBAで
For i=0 To Size
Data(i)=buf(i)
Next
をやると、Data()にデータがキッチリ収まっています

なにがいけないのでしょうか？