E009 イベントは存在しません

On Event ステートメントでイベントが指定されましたが、そのイベントは指定された製品のオブジェクトに対して定義されていません。例えば、ProdADT が製品のオブジェクトで、そのオブジェクト用にイベント NotAnEvent が定義されていない場合、次のようになります。

Sub MySub(Source As ProdADT)
'...
End Sub
Set prodObjRef = New ProdADT("astring")
On Event NotAnEvent From prodObjRef Call MySub	' Illegal.

On Event ステートメントを削除するか、オブジェクトに対して定義されたイベントを指定してください。