vba 2010 почему не работает перехват события?

Помогите пожалуйста, не могу решить проблемку - нужно создавать свои объекты со своими событиями, вот пример ... что здесь не так?
1) Создан модуль - TestModule
который содержит код:

Option Explicit

Public Sub Test()
Dim TestValue As Object
Set TestValue = New My_Class

TestValue.SomeInput = "Test Input"
TestValue.AnyMet
End Sub

2) Создан класс модуль - My_Class
который содержит код:

Option Explicit
'задача проекта отработать создание и вызов собитий
Public Event SomeThing() 'объявление события

Dim SomeValue As String ' декоративная переменная

Public Property Get SomeOutput() As String
MsgBox (SomeValue)
End Property

Public Property Let SomeInput(ByVal vNewValue As String)
SomeValue = vNewValue
End Property

Public Sub AnyMet()
MsgBox (SomeValue & " " & Chr(13) & "попытка работы с событием")
RaiseEvent SomeThing
End Sub

3) Создан класс модуль - My_Event_Hunter
который содержит код:

Public WithEvents AnyValue As My_Class

Private Sub AnyValue_SomeThing()
MsgBox ("Поучилось!!!")
End Sub

Private Sub Class_Initialize()
Set YMis = New My_Class
End Sub

..... Вопрос - Почему не удается обработать событие?
Помогите пожалуйста.

Примечание:
Ответ найден! Может кому пригодится, вот он:


Где-то так должно работать,писал в блокноте
My_Class

Код:

Public Event SomeThing()
Dim SomeValue As String '

Public Property Get SomeOutput() As String
MsgBox (SomeValue)
End Property

Public Property Let SomeInput(ByVal vNewValue As String)
SomeValue = vNewValue
End Property

Public Sub AnyMet()
MsgBox (SomeValue & " " & Chr(13) & "попытка работы с событием")
RaiseEvent SomeThing
End Sub

My_Event_Hunter
Код:

Public WithEvents AnyValue As My_Class
Private Sub AnyValue_SomeThing()
MsgBox ("Получилось!!!")
End Sub

Private Sub Class_Initialize()
Set AnyValue = New My_Class
End Sub
Public Sub Test(SomeInput As String)
Dim TestValue As Object
Set TestValue = New My_Class
AnyValue.SomeInput = SomeInput
AnyValue.AnyMet
End Sub

TestModule
Код:

Public Sub Test()
Dim TestValue As My_Event_Hunter
Set TestValue = New My_Event_Hunter
TestValue.Test "Test Input"
End Sub

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.