HRESULT WriteToHtmlDocument(CComPtr<IHTMLDocument2> spDoc2, CComBSTR &bstrHtml)

{

    HRESULT hr = S_OK;

    //BSTR bstr = SysAllocString(OLESTR("Written by IHTMLDocument2::write()."));

    BSTR bstr = bstrHtml.Copy();

    // Creates a new one-dimensional array

    SAFEARRAY *psaStrings = SafeArrayCreateVector(VT_VARIANT, , );

    if (psaStrings == NULL) {

        goto cleanup;

    }

    VARIANT *param;

    hr = SafeArrayAccessData(psaStrings, (LPVOID*)&param);

    param->vt = VT_BSTR;

    param->bstrVal = bstr;

    hr = SafeArrayUnaccessData(psaStrings);

    hr = spDoc2->write(psaStrings);

cleanup:

    // SafeArrayDestroy calls SysFreeString for each BSTR

    if (psaStrings != NULL)

        SafeArrayDestroy(psaStrings);

    return hr;

}