2バイト文字の場合どうするんだい？

とにかく君は､全てに置いて抜け過ぎ。
自分の頭の中では､VBSなのもテキストとしての文字数単位なのも決定事項なんだろうが
第三者には君の脳内決定事項なんて知らない。もっと深く考える頭を持とうぜ。

で､ぶっちゃけテキストとしての文字単位なら､テキスト読みして
strText = "abc123"
MsgBox Asc(Mid(strText, 1, 1)) Xor Asc(Mid(strText, 2, 1))
でいいんじゃないの？