これじゃだめなの?

var fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.GetExtensionName(document.FullName).toLowerCase() == 'vbs') document.Encoding = meEncodingShiftJIS;

マクロ(M) > カスタマイズ(C)...
☑イベントで実行(R)
イベント(V) > ☑ファイルを開いた時