补充一个：

Function LShift(Value, Shift)

Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
LShift = sc.Eval(Value & "<<" & Shift)

End Function

Function RShift(Value, Shift)

 Set sc = CreateObject("MSScriptControl.ScriptControl")

sc.Language = "JScript"
RShift = sc.Eval(Value & ">>" & Shift)

End Function

来自这里：

https://demon.tw/programming/vbs-bit-shift.html