なんどもすいません，83です．

原因がわかりました．
If (mods & intCONTROL)<> 0
の & ってVBScriptでは文字列連結ですね．．

なので，

IF (mods AND intCONTROL)<>0

とすることで解決しました．

# 今配布されているバージョンではもしかしてそうなってる？
# もしそうでなければ，このあたりの論理演算子を全部 & → AND に
# 置換したバージョンを以降配布されるのがよいと思います．

ありがとうございました．