VB中调用VC写的COM组件怎么得到的返回值老是为Nothing

组件返回接口的代码如下：
STDMETHODIMP CChatRoomCol::get_ChatRoom(BSTR KeyWord, IDispatch **pVal)
{
............
pChatRoom->QueryInterface(IID_IDispatch,(void**)pVal);
return S_OK;
}在VB中这样调用
Set oChatRoom = oChatHall.ChatRoom("天堂")oChatRoom总是为Nothing,但我明明返回了一个接口指针，请高手解答。