VC调用vb的标准DLL问题

各位大虾看清楚，是vc调用vb的标准dll问题

vb的dll代码如下：
Function DLLMain(ByVal hInstDLL As Long, ByVal fdwReason As Long, ByVal lpwReserved As Long) As Long
  DLLMain = 1
End Function

Sub Main()
  '确保VB能编译
End Sub

 Sub M(s As String)
  MsgBox s, vbInformation
End Sub


输出的函数是M，用dumpbin查看没有问题


如果是vb程序调用这个dll没有问题，但是涉及到字符串，vc一调用就失败

vc代码如下：
#include "stdafx.h"
#include <atlbase.h>
#include <iostream.h>

int main(int argc, char* argv[])
{
cout<<"hi"<<endl;
HINSTANCE hDll=LoadLibrary("C:\\Documents and Settings\\XPMUser\\桌面\\VB_DLL\\1.dll");
typedef (__stdcall *DLLFUNC)(BSTR);
DLLFUNC M;
if (hDll)
{
M=(DLLFUNC)::GetProcAddress(hDll,"M");
BSTR a = SysAllocString(L"hi");
M(a);
SysFreeString(a);
}
return 0;
}

一运行就access violation指针错误，在vb里改成 Sub M(ByVal s As String)也没用

网上不是写VB里的字符串就是BSTR么，求指教！！！

没在VC中调用过VB的dll,不过怀疑是SysFreeString(a)出了问题，BSTR允许外地Free,可能是String释放了内存空间