problem facing with IHTMLDocument2::write function

I am facing two problems when the control of my project comes at IHTMLDocument2::write" function.The problems are as follows..

1. My project is going in hang stag .
2. It throws exception at the same point.

i have attached two html files , abc.html and xyz.html for respected problems.

The code what i am using is to write HTML expressions to a document is::

SAFEARRAY* psa = NULL;
            
HRESULT hr;
CComPtr<IHTMLDocument2> pDoc;
pDoc = NULL;
hr = CoCreateInstance(CLSID_HTMLDocument, NULL, SCTX_INPROC_SERVER,
                                    IID_IHTMLDocument2, (void**)&pDoc);

if(!strHtmlText.IsEmpty() && SUCCEEDED(hr))
{                  
      psa = SafeArrayCreateVector(VT_VARIANT, 0, 1);
                                          
      VARIANT *param;

      if(psa && SUCCEEDED(SafeArrayAccessData(psa, (LPVOID*)&param)))
      {
            CComBSTR bstrHTML(strHtmlText);
            VariantInit(param);
            param->vt = VT_BSTR;
            param->bstrVal = bstrHTML.m_str;
                                                                  
            if(SUCCEEDED( pDoc->write(psa)))
            {
//--------------------------------------------------//
}

}|
}
abc.html
xyz.html