逆风编程精品
　　对于第一个问题，通过修改String变量里放着的BSTR描述符指针可以实现；对于第二个问题，可以用Mid语句（注意是语句而不是函数）来赋值。不详细讲了，直接看下面的这个类：
　　

　　Option Explicit

　　'********************************************************

　　'clsBSTR.cls

　　'作者: 熊超 ID: AdamBear 2002年3月18日

　　'http://www.csdn.net/Author/AdamBear

　　' 你可以自由使用本类模块，不过请保留本声明

　　'********************************************************

　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

　　'不要直接对sString赋值(可以用MID语句)，将其设为公有仅为提高效率。

　　Public sString As String 'BSTR描述符指针

　　Private pStr As Long 'BSTR地址

　　Private nMaxLen As Long 'BSTR最大字节数

　　
　　 '让本字串指向特定地址

　　Public Sub Attach(Addr As Long, Optional nLen As Long)

　　pStr = Addr

　　'修改BSTR描述符指针，使其指向Addr

　　CopyMemory ByVal VarPtr(sString), Addr, 4

　　If IsMissing(nLen) Then Exit Sub

　　'设定最大字串字节数

　　nMaxLen = nLen

　　End Sub

　　'还原本字串原BSTR描述符

　　Public Sub Detach()

　　　CopyMemory ByVal VarPtr(sString), 0&, 4

　　End Sub

　　'让本字串指向源字串

　　Public Sub AttachStr(sStr As String)

　　　Attach StrPtr(sStr), LenB(sStr)

　　End Sub

　　'data为缺省属性

　　Public Property Let data(sVal As String)

　　　Dim c As Long

　　　c = LenB(sVal)

　　　'超过最大字串数，抛出错误。

　　　If c > nMaxLen Then Err.Raise VBObjectError 3000, "CString::Let Data", "溢出"

　　　'写字串长度

　　　CopyMemory ByVal (pStr - 4), c, 4

　　　'写字串

　　　Mid(sString, 1) = sVal

　　End Property

　　'可以通过公有变量sString来读字串，效率更高

　　Public Property Get data() As String

　　　data = sString

　　End Property

　　Private Sub Class_Terminate()

　　　Call Detach

　　End Sub

　　Dim sShare As New clsBSTR

　　'留下前4个字节用于BSTR保存字串字节数

　　sShare.Attach(baseAddr 4, 4096-4)

　　'下面的字串"Test"会直接写到baseAddr 4字节处

　　sShare = "Test"

　　Dim y As String

　　'读字串时可以用sString属性或缺省属性

　　y = sShare.sString

　　'用AttachStr方法Attach到一个字串。

　　'必须要先Detach

　　sShare.Detach

　　sShare.AttachStr(y)

　　sShare = "Hahaha"

　　Debug.Print y

　　'一旦AttachStr到字串y后，对sShare的修改就相当于对y的修改。

　　'并且以后对y的修改也只能用Mid语句

　　Mid(y, 1) = "xxxxx"

　　'不能直接赋值，这样VB会将原来y所指（也是sShare所指）内存释放，

　　' 重新分配y。这样在访问sShare时会出错。