Excel DNA-将C＃字符串编组到回调中的VBA ByRef

我正在尝试使用Excel-DNA从C＃代码在Excel中调用VBA回调。在弄乱了特定的数据类型和编组声明之后，我终于可以创建一个工作示例：

C＃代码

[ComVisible(true)]
[ClassInterface(ClassInterfaceType.AutoDispatch)]
[ProgId("CSharpComObject")]
public partial class CSharpComObject
{
    Dictionary<string, Callback> _callbackMap = new Dictionary<string, Callback>();


    public void SubscribeStringData(string topic, [MarshalAs(UnmanagedType.FunctionPtr)] Callback callback)
    {
        _callbackMap[topic] = callback;
    }

    public void RaiseCallback(string topic, string data)
    {
        _callbackMap[topic](data);
    }

    public delegate void Callback([MarshalAs(UnmanagedType.BStr)] string data);
}

VBA模块

Option Explicit

Dim testObj As Object



Sub Subscribe()

Set testObj = CreateObject("CSharpComObject")

testObj.SubscribeStringData "someTopic", AddressOf StringDataCallback

End Sub



Sub StringDataCallback(ByVal data As String)

MsgBox "StringDataCallback Raised [" + data + "]"

End Sub

问题

从上面的代码示例中可以看到，字符串的默认COM编组为BStraka ByVal ... As String。

我想知道是否存在一种将字符串数据（或与此相关的任何对象类型）传递给VBA回调的方法ByRef，如果是这样，那么C＃声明和编组属性将是什么？