CHTMLEditCtrl и запись в него

Во многих чатах (типа ICQ) используется компонент web-браузера.
В MFC7 есть класс CHTMLEditCtrl - контрол для отображения html документов.
Проблема в следующем. В программе создается динамически компонент CHTMLEditCtrl на окне диалога:

CRect rect;
m_HtmlEdit = new CHtmlEditCtrl;

rect.SetRect(12,35,rect.right-10,rect.bottom-125);
m_HtmlEdit->Create(0, 0, rect, this, IDC_HTMLEDIT, 0);

далее в программе, когда необходимо записать в это окно сообщение InstantMessage типа CString:

IHTMLDocument2 *doc;
IDispatch *pomWindowResult;
VARIANT var1, var2, var3;

SAFEARRAY* psa = SafeArrayCreateVector(VT_VARIANT, 0, 1);
VARIANT *param;

BSTR bsData = IncomingMessage.LockBuffer();
SafeArrayAccessData(psa, (LPVOID*)&param);
param->vt = VT_BSTR;
param->bstrVal = (BSTR)bsData;

m_HtmlEdit->GetDocument(&doc);

var1.vt = VT_BSTR;
var1.bstrVal = _T("_self");
var2.vt = VT_BSTR;
var2.bstrVal = _T("");
var3.vt = VT_BOOL;
var3.boolVal = 0;

doc->open(0, var1,var2,var3, &pomWindowResult);
doc->write(psa);
doc->close();

SafeArrayDestroy(psa);

Но ничего не выводится в окно. Что я упустил или сделал не так?