c++ - C++ dll から vb に文字列を返す

Question

次のdll cppファイルがあります

#include "stdafx.h"
#include <string.h>
#include <Windows.h>
#include <OleAuto.h>
using namespace std;
extern "C" __declspec(dllexport) BSTR func(BSTR a) 
{
BSTR buffer;
buffer = SysAllocString(a);
 return buffer;
}

vb の終わりに

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim string1 As String
    string1 = func(TextBox1.Text)
    TextBox2.Text = string1
End Sub

上記のコードは正しくコンパイルされますが、テキスト ボックスに文字列を表示する前にフォームが閉じます。しかし、テキストを整数として返すと、うまくいきます...