シフトJISにない文字を判定する。

シフトJISにない文字は以下で判定できます。

If Chr(Asc(c))<>c Then 'シフトJISにない文字

ただし、ロカールは"ja"の場合です。
同様に、ロカールを変えれば、その文字集合にない文字を判定できます。

このように、VBScriptのAsc()/Chr()は、ロカールに依存します。
一方、FileSystemObjectのTextStreamは、ロカールに依存しないようです。