下潜深度（十米，水温 0 ° C ），时间北京时间零点整。
** ** ** “ ** 海蛇”有人在惊呼。
只见在海底深处游来一条黑色的长长的海蛇，几乎所有的人都在发呆。但是海蛇说了一句让我们胆寒的话“我就是有名的 VB 字符串，如果你们继续下潜的话，就得想通过我”。
我习惯性的观察着它，因为我知道要打败一个对手，就必须深入的了解对手。
因此我写了一段小 CODE 来了解它。
Dim str As String
str = "Give me a 美女 "
Dim L1 As Long
Dim L2 As Long
L1 = Len(str)
L2 = LenB(str)
Debug.Print L1, L2
这个代码运行得很好，完全符合我的想像，在立即窗口中显示了 12 ， 24 ，
Good ，于是我准备在窗口中用 TextOut 把它打印出来，至于为什么我一定要这个函数而不用其它的，你管得着么？所以我写下了于下代码
Dim str As String
str = "Give me a 美女 "
Dim L1 As Long
Dim L2 As Long
L1 = Len(str)
L2 = LenB(str)
Debug.Print L1, L2
TextOut Me.hDC, 100, 100, str, L1
结果我发现不对？看来是字符串长度不对，想起来了，在 VB 中字符串是 BSTR 型的，那么应该用 L2 作长度，对不对呢，试试就知道了。
天呀，在字符串后出现了天书，难道是上帝在暗示我什么时候给我一个美女？
不过我想上帝没有这么快就会答应我，因此一定是我的代码有问题。
当我正在沉思的时候，所有的人都在观注着我。没办法，太帅了。
所以我又迅速写下了以下的代码
Private Declare Function LenANSI Lib "kernel32" Alias "lstrlenA" (ByVal string1 As String) As Long
……
Dim str As String
str = "Give me a 美女 "
Dim TrueLen As Long
TrueLen = LenANSI(str)
TextOut Me.hDC, 100, 100, str, TrueLen
当我快速地按下 F5 后，天空中便有了回响，“ Give me a 美女 ” 这句话已得到了正确的响应。
这时候我看着这条海蛇，满有信心地向它游去，但是它却很诡秘的一笑。
你见过蛇的笑容么，它也很缓缓的游过来了。
“如果你们打算就这样通过我的话，也想得太容易了”这句话为什么这么熟悉呢。是不是在黄金十二宫里的什么人说的吧，
“给你们一个小考验，你们知道 ** vbNullString ** ** 和 “” ** 有什么区别么？”
“别以为你是海蛇就了不起，你这问题也太简单了吧”我身边一个长得不是很难看的小伙子，人送外号（ 天下第七帅 ），“你以为我没读过 海洋生物指南 呀（对象浏览器）
Const vbNullString = ""
VBA.Constants 的成员
当调用一个外部过程，需要一个非零值的字符串时，所使用的常数
“那你的意思是说是一样的了，那么 vbNullChar 呢？”海蛇不怀好意地看着天下第七帅。
“那当然是一样的了，你看 VB 的说明么”天下第七帅冲口而出，不过他又觉得好象有些不对。但是 VB 的对象浏览器上的确写着
Const vbNullChar = ""
VBA.Constants 的成员
那么下面这段代码代表什么呢？
海蛇给出了它的代码
Dim s1 As String
Dim s2 As String
Dim s3 As String
s1 = vbNullString
s2 = vbNullChar
s3 = ""
Debug.Print StrPtr(s1), StrPtr(s2), StrPtr(s3)
Debug.Print LenB(s1), LenB(s2), LenB(s3)
天下第七帅按下 F5 后，他很惊讶海蛇代码的运行结果
0 1899284 1434596
0 2 0
那么就是说 VB 的说明和海蛇之间一定有人错了。而且，对于采用 S1 两个值都是零，指针指向零，长度为零，它不是一个普通意义上的零值呀。
天下第七帅于是转过头来看着我。
“小子，出风头吧，来吧，我先给你们看点东西”
“你们想要打败海蛇，就一定要了解海蛇的结构”
VB 的字符串是一个标准的 BSTR 字符串，比如说 ”Hello” 这个字符串它的结构是这样的
A
|
0
|
0
|
0
|
‘ H ’
|
0
|
‘ e ’
|
0
|
‘ l ’
|
0
|
‘ l ’
|
0
|
‘ o ’
|
0
|
0
|
0
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---
可以看到前面四个字节代表 字符串实际长度所占字节数，它是一个 Long 值。
而最后两个字节是代表零值的结尾字符。
而中间的十个字节正好是字符串的内容。
如果我们用 s1=”Hello” ，那么 s1 是指向什么地方呢。
“最初我以为 s1 是指向第一个字节，但是当我用自编的 VB 内存观测工具来看 strptr(s1) 后面所跟的字节值时发现 ， ** s1 ** ** 是指向第五个字节，也就是我们字符串真正开始的地方。 ** ”
“大家都了解了海蛇的结构了，那么它刚才提出的三种情况为什么会有不同呢？”我向还在发呆的下潜者。
“是呀，为什么？”
好了，拿出你们的 OleView ，在 File-> View TypeLib 中打开 VB6.DLL ，你是不是看到了一个很奇妙的天地，别发呆，找到以下部分
Modules->Modules Constants
打开他们你便会看到 VB 内部真正的定义了。
[helpcontext(0x0010aa32)] const LPSTR vbNullString = "";
[helpcontext(0x0010aa32)] const LPSTR vbNullChar = "\0";
看到了没有， vbNullString 指向一个空字串，但这个空字串是 零址 的。而 vbNullChar 则是一个零字符（相当于 C 中字符串中最后一个字符）。那么我们来看海蛇的代码运行时发生了什么
s1 = vbNullString
VB 看到这句时，它很清楚把 S1 的值变成了零
s2 = vbNullChar
VB 看到这句时，它做了几个动作，它用 SysAllocStringLen 在堆中分配了一个 BSTR 字符串，然后将 ’\0’ 复制到这个字符串里。
s3 = ""
这里 VB 做了很多工作，首先， VB 在编译时，把 ”” 当成了一个常量，它必须为这个空字符串内部申请一个变量。当 EXE 文件加载后，也得把它设定一个地址，虽然它什么都不代表
是一个 00 00 00 00 00 00 这样的字符串，它需要 6 个字节（四个头字节和 2 个尾字节）
然后当看到这句时再把第五个字节的地址值传给 s3
所以，虽然你只是信手写了一个 ”” ，结果 VB 多作了很多工作。 6 个字节虽然不多，但是在一个大工程里，大家都到处写“”，那么也是很可观的一笔开销。 所以下次你绝对不要再用 ** ”” ** ** ，而一定要用 vbNullString **
“ 你说，是么，海蛇 ” ，我轻蔑地看着它。
海蛇看到大家都恍然大悟的样子，再此发出了它的笑声（海蛇会笑么？）
“了解我，并不是真正的掌控我，很多 C 的潜水员会对 VB 不屑一顾，你们知道是为什么？”
“慢， VB 的字符串操作太慢了”很多潜水者都回抢着回答这个问题。
“呵呵，是的，”海蛇放声大笑，慢慢地游向深海“ ** I will Back! ** ”
留下我们这群潜水的人，大家在思索，我们真正了解海蛇了么，因为 VB 海洋传说中海蛇是相当可怕的，它会这么轻易地走开么，而且，它所说的 I will Back 又是指什么？
但是我们会继续下潜 …….
“看，珊瑚礁”有人在惊呼！