文字列(BSTR)を格納する場合は、vtにVT_BSTRを指定し、bstrValにSysAllocStringで文字列をセットする。
VARIANT (oaidl.h) - Win32 apps | Microsoft Docs
型タグ フィールドの設定 - Win32 apps | Microsoft Docs
VARIANT.cppで、
vr.bstrValにSysAllocString(L"ABCDE")の戻り値をセット。
vr.bstrVal = ABCDE 続行するには何かキーを押してください . . .
結果こうなる。
中身は、

この時点ではこう。

この時点ではこう。
SysFreeStringしたから消えるわけではないか・・・。
Sample/com/VARIANT/bstrVal/src/VARIANT at master · bg1bgst333/Sample · GitHub