vb程序exe配vc程序dll如何实现我要的功能？

[a294447011294447011]

vb程序：
普通模块：
Public Declare Function Load Lib "mydll.dll"(ByVal VbFunRva As Long) As Boolean

Public Sub fun(ByVal str1 As String)
Form1.Text1.Text = str1' 我的目的是让Form1.Text1.Text 得到dll里的："vc_dll";可程序启动就错误了？请帮忙解决这个问题？
End Sub

窗口代码：
Private Sub Form_Load()
Load AddressOf fun
End Sub

///////////////////////////////////////////////////////////////
vc程序（mydll.dll)：

typedef void (WINAPI *FUN)(char *str1);
char *strstr1="vc_dll";
extern "C" bool _declspec(dllexport)__stdcall Load(int VbFunRva)//vb一个回调函数地址
{
FUN fun=(FUN)VbFunRva;
fun(strstr1);
return 1;
}

[supergreenbean]

#include <Oleauto.h>
#include <comdef.h>
#include <comutil.h>

typedef void (WINAPI *FUN)(BSTR str1);
char *strstr1="vc_dll";
extern "C" BOOL _declspec(dllexport)__stdcall Load(int VbFunRva)//vb一个回调函数地址
{
FUN fun=(FUN)VbFunRva;
fun(SysAllocString(_bstr_t(strstr1)));
return 1;
}

[a294447011294447011]

g:\资源目录\桌面\c++\vc98\include\oleauto.h(30) : error C2143: syntax error : missing ';' before 'const'
g:\资源目录\桌面\c++\vc98\include\oleauto.h(30) : error C2501: 'EXTERN_C' : missing storage-class or type specifiers
g:\资源目录\桌面\c++\vc98\include\oleauto.h(30) : error C2146: syntax error : missing ';' before identifier 'IID_StdOle'
g:\资源目录\桌面\c++\vc98\include\oleauto.h(30) : error C2734: 'IID' : const object must be initialized if not extern
g:\资源目录\桌面\c++\vc98\include\oleauto.h(30) : fatal error C1004: unexpected end of file found

超级绿豆——嘿咻嘿咻，这些怎么解决？