#If Vba7 Then
#如果是运行在64位office上
Declare PtrSafe Sub...
#Else
#如果是运行在32位office上
Declare Sub...
#EndIf
在Visual Basic中，在定义通用过程时，如果形参前面有关键字ByVal，则该参数用传值方式传送，否则即以引用（即按地址）方式传递。
vba的Type定义自定义类型
Val(sCurrentVersion)获得sCurrentVersion字符串中的数字
Environ("temp")获得环境变量