イヴェントの使い方
'Class1.cls
Public Event EventDaYo()

Public Sub Hoge()
RaiseEvent EventDaYo
End Sub

'Form1.frm
Private WithEvents c1 As Class1

Private Sub Form_Load()
Set c1 = New Class1
End Sub

Private Sub Command1_Click()
Call c1.Hoge
End Sub

Private Sub c1_EventDaYo()
MsgBox "EventDaYo"
End Sub