回复：吧友们有没有对“VB6实现移位操作”感兴趣的？

Option Explicit
Public Function DecToBin(Dec As String) As String
Dim Bin$
While Not Dec = 1
Bin = (Val(Dec) Mod 2) & Bin
Dec = Dec \ 2
Wend
Bin = (Val(Dec) Mod 2) & Bin
DecToBin = Bin
End Function
Function Two2Ten(ByVal Tstr As String) As Long '二进制转十进制
Dim TmpVal&, j#, i# '定义数值型变量 TmpVal
j = Len(Trim(Tstr)) '将参数Tstr去除空白后计算它的长度(几个字符) 赋值给 j
For i = 1 To j '从第一个字符开始循环到j个字符
'变量开始逐一累加i的？次方
TmpVal = IIf(Val(Mid(Tstr, j - (i - 1), 1)) > 0, TmpVal + 2 ^ (i - 1), TmpVal)
Next i
Two2Ten = TmpVal '将数值变量TmpVal返回
End Function
'Two2Ten 由CBM666大神提供
Sub Main()
Dim Bin$, Dec$, Data#
Data = 1
'对二进制串进行文本操作
Dec = CStr(Data)
Bin = DecToBin(Dec)
Bin = Bin & "00" '左移2位
Dec = CStr(Two2Ten(Bin))
MsgBox "左移2位：" & Dec
End Sub

这是一个VB6疯狂粉丝写的高效移位代码
http://mp.weixin.qq.com/s/rijwxH6l0nrGXg3VfS9o3Q

楼上的朋友的链接，他里面有张贴图：
用“内嵌机器码”，执行1亿次，耗时应该是249ms（图片不太清晰，应该是这个数据）。
换算成我的图片中的“5000万次”耗时，应该是124.5ms，而我的是120ms。
当然毕竟“时间测量”还是有误差的，这点差异可以忽略，就认为是“相同”吧。
那么现在再比较一下“硬件”：
　他的是 Core i7-6700K @ 4GHz　4核CPU（这是真4核，并且是6代CPU）
而我的是 Core i5-4210U @ 1.7GHz　双核
当然“核数”的问题可以忽略，关键是我的CPU是“移动平台” 的CPU，
在性能上、CPU主频速度上，都远远比不上他的硬件环境。
然而“相同执行次数的总耗时”却是相当的，
你说说，他的代码，与我的相比真有“优势”吗？

VB6运用【内联汇编代码 + 轻量级COM对象】实现的移位操作
http://bbs.csdn.net/topics/392318790
就是上面17楼提到的“方法4”的实现源码。
此方法运行效率较高、适应性强。
那个“方法5”我可能就不会再发布了，只能编译后有效，不太方便。跟4相比也没强多少。
不知道有人能看到这儿不…………