Shift-JISの2ﾊﾞｲﾄｺｰﾄﾞで使われる範囲は0x40より上なので､
0x22のﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝが原因で文字化けしたりはしないです

日本語Windowsで使っている限りはｼﾌﾄJISを認識しているので､そのような文字化けが起きることはありません｡

http://charset.7jp.net/sjis.html
これは､Shift_JIS の文字ｺｰﾄﾞ表です｡

｢ｼﾌﾄJISの2ﾊﾞｲﾄｺｰﾄﾞ(全角文字)のｴﾘｱﾏｯﾌﾟ｣です｡
行方向が｢区｣で､漢字 2byte の上位の方を表します｡
列方向が｢点｣で､漢字 2byte の下位の方を表します｡
例えば､｢本日は｣の｢本｣は､｢区｣=96､｢点｣=7b で､967b になります (16進表記)｡

ﾀﾞﾌﾞﾙｸｫｰﾄは､ｺｰﾄﾞが 22 (16進表記) なので､Shift_JIS が表す｢点｣の範囲に入っていません｡


じゃあ､｢下位ﾊﾞｲﾄが 40以上 だったら､文字化けの心配があるのか？｣ってことが気になりますよね｡
多分､anesawa さんは C言語､もしくは Perl の経験があって､文字列がﾊﾞｲﾄの配列､というｲﾒｰｼﾞがあるのだと思います｡

VBScript は､文字列を扱うときには､ﾊﾞｲﾄの集まりではなく､文字の集まりとして扱っているので､
そもそも｢漢字の下位ﾊﾞｲﾄがどうなっているから...｣ということを心配する必要がありません｡
文字列を操作する関数でも､文字の位置や長さは､ﾊﾞｲﾄでは無くて､文字単位です｡

逆に､｢文字列の 4ﾊﾞｲﾄ目のｺｰﾄﾞは何？｣みたいな処理をする方が頭を使います｡


以下のｺｰﾄﾞは､質問のｺｰﾄﾞを､下位ﾊﾞｲﾄが "}" (ｺｰﾄﾞは 7d) の漢字にしてみたものです｡
実際に動かしてみれば､正しく処理されているのが確認できると思います｡

hoge = "凡党は}晴天なり"  ' ｢凡 (967d)｣､｢党 (937d)｣､｢} (7d)｣
fuga = Replace(hoge, "}", "?")

WScript.echo fuga

WScript.echo mid(hoge, 2, 1)  ' mid などの文字列操作関数は､ﾊﾞｲﾄじゃなくて､文字単位

Replaceという関数自体が 指定した文字ｺｰﾄﾞで 半角､全角を区別して動くように作られてますので､そのような心配は 不要です｡

じゃないと 半角､全角まじりの文字列は 正しく 置換されないことになってしまいますから｡

当然､そこらへんは 考慮して 作られてるわけなんです｡