VarPtr 得到地址 指针
在Basic语言演变成QBasic，然后到Visual Basic之前，VarPtr函数就已经存在了。开始，这个函数存在于VB运行库1.0版中。通过声明可以调用这个函数：
Declare Function VarPtr Lib "vbrun100.dll" (Var As Any) As Long
数年之后，vbrun100.dll变成了msvbvm50.dll，但该函数的入口点却还在那儿。为了获取变量的地址，只须将变量名传递给该函数就行了。例如：
Dim l As Long
Debug.Print VarPtr(l)
类似地，为了获取字符串的指针，而非保存字符串的变量的指针，只须在变量名前加上ByVal即可。如：
Debug.Print VarPtr(s),VarPtr(ByVal s)
在VB3之前，用这种方法来获取字符串缓冲的指针是非常普遍的。但在VB4却遇到了一点麻烦。
ANSI/UNIDCODE问题
随着32位世界和VB4的到来，我们迈进了一半是UNICODE，一半是ANSI的Windows世界。而在此之前，是ANSI一统天下。在VB中，所有字符串按UNICODE保存，但所有的API调用却仍使用ANSI字符串。这就要求在调用API函数之前，将字符串从UNICODE转换成ANSI，函数执行结束后，将返回的字符串从ANSI转换成UNICODE。虽然大多数时候这种转换对用户来说是透明的，但这就使利我们不能将一个字符串类型的参数以UNICODE方式从VB传递给DLL。类似地，任何包含有字符串的结构在执行API调用时，也必须经过这种双重转换。
这种差异是如何影响VarPtr函数的呢？当一个字符串传递给VarPtr函数时，函数执行后所返回的地址是保存临时ANSI字符串的临时ANSI字符串或变量的地址。换句话说，这个地址并不是你声明的变量的真正地址。因此，对于字符串变量以及包括字符串的结构来讲，这个函数一点用也没有。
VB5来解决问题
为了能VarPtr能重新发挥作用，VB5（及Office97）加入了三个针对VBA类型库的入口点。这些入口点为VarPtr函数提供了内置的声明。这三个函数的作用是：
VarPtr：返回变量地址
StrPtr：返回真正的UNICODE字符串缓冲区的地址
ObjPtr：返回任何对象变量引用的地址
VarPtr其函数原型如下，用OleView打开c:\windows\system32\msvbvm60.dll可知：
[entry(0x60000006), hidden]
long _stdcall VarPtr([in] void* Ptr);
请看下两个例子：
例一：
Dim s As Long:s=-11 ‘为非指针型变量均可，如Byte等，会转化成Long。
MsgBox VarPtr(s) ‘得到变量s的地址
MsgBox VarPtr(-11) ‘得到临时变量的地址
MsgBox VarPtr(ByVal s) ‘不用建立临时变量，结果为-11。如果VarPtr为取址，肯定不会为-11；此处不取址了，仅转化值。
例二：
Dim s As string:s=”asdfg”
MsgBox VarPtr(s) ‘得到变量s的地址
MsgBox VarPtr(“asdfg”) ‘得到临时变量的地址
MsgBox VarPtr(ByVal s) ‘得到字符串”asdfg”的地址
上面两例的结果均为Long型，且前两个地址数值相近，因均属变量型，而最后一个为常量。
VB不鼓励使用指针，比如MsgBox s，单独用变量名s，就是无法得地址。VarPtr的最大作用，当然是突破限制、“抠”出了变量的指针数值。那“数值转化”有什么用呢？其实没什么特别。我们来自己定义个VarPtr，在例一中加上Private Declare Function VarPtr Lib "msvbvm60.dll" (x As Any) As Integer，会进行Long与Integer的转换。
再看例三，三个MsgBox的结果相同：
例三：
Dim s As Long:s = -11
MsgBox VarPtr(s)
MsgBox VarPtr(ByVal VarPtr(s)) ‘不可省去ByVal，那会是临时变量的地址
Dim t As Long
t = VarPtr(s)
MsgBox VarPtr(ByVal t)
End
可以看出，实参中ByVal VarPtr(x)的搭配和(ByRef) x一样；VarPtr(ByVal x)和x一样。