STDMETHODIMP CTelephones::Remove(VARIANT Index)
{
	TelephonesColl::ContainerType::iterator it;
	switch (Index.vt)
	{
	case VT_I2:
	case VT_I4:
		if (Index.lVal <  1  || Index.lVal > m_nCount)
			return Error(L"Индекс вне допустимого диапазона",GUID_NULL,
				MAKE_HRESULT( 1 ,FACILITY_ITF,KEY_INVALID));
		it = m_coll.begin();
		std::advance(it, Index.lVal -  1 );
		break;
	case VT_BSTR:
		it = m_coll.find(_bstr_t(Index.bstrVal));
		if (it == m_coll.end())
			return Error(L"Указанный элемент не найден",GUID_NULL,
				MAKE_HRESULT( 1 ,FACILITY_ITF,UNKNOWN_PHONE));
		break;
	case VT_BYREF | VT_DISPATCH:
		Index.vt = VT_DISPATCH;
		Index.pdispVal = *Index.ppdispVal;
	case VT_DISPATCH:
		for (it = m_coll.begin(); it != m_coll.end(); it++)
			if (Index.pdispVal == it->second.pdispVal)
				break;
		if (it == m_coll.end())
			return Error(L"Указанный элемент не найден",GUID_NULL,
				MAKE_HRESULT( 1 ,FACILITY_ITF,UNKNOWN_PHONE));
		break;
	default:
		return Error(L"Неверный тип индекса/ключа",GUID_NULL,
			MAKE_HRESULT( 1 ,FACILITY_ITF,LOST_INDEX));
	}

	((it->second).pdispVal)->Release();
	m_coll.erase(it);
	m_nCount --;
 

	return S_OK;
}

//ошибки всех коллекций:		 1 - 255 
#define COMMON_OFFSET			0x000000FF
#define KEY_INVALID				0x00000001	//неуникальный, неверный ключ
#define UNKNOWN_PARENT			0x00000002	//недопустимый родительский объект
#define LOST_INDEX				0x00000003	//неверный тип индекса/ключа
#define NOT_ELEMENTS			0x00000004	//коллекция не содержит элементов

    Dim MyPhone As Telephone
    Dim MyPhonesCollection As Telephones
    
    Set MyPhone = New Telephone
    MyPhone.Number = "322-223-323"
    
    Set MyPhonesCollection = New Telephones
    
    MyPhonesCollection.Add MyPhone
    
    On Error GoTo ErrHandler
    MyPhonesCollection.Remove  777 
    Exit Sub

ErrHandler:
    MsgBox Err.Description, vbCritical, "Ошибка компонента " & Err.Number