VC调用VB DLL

#import "c:test.dll" 
using namespace test;


HRESULT ComInit()
{
    HRESULT hr = S_OK; 
    if FAILED(CoInitialize(NULL)) 
    {
        CoUninitialize();
        hr = E_UNEXPECTED;
    }
    return hr;
}

void CTestCallDllDlg::OnButton1() 
{

    ComInit();
    _test1Ptr MyObj;        //注意这里，类名虽然是DEMO，但是定义声明应该是“_类名Ptr”来定义对象
    MyObj.CreateInstance("test.test1");
    
    _bstr_t vRsinfo = MyObj->msg();    //这里使用对象方法取得当前用户名称
    char * mychar = (char*)vRsinfo;
    MessageBox(mychar);

}