Public Instance1 As Class1

Public Sub Main()
   Dim Instance2 As Class2
   
   Set Instance1 = New Class1
   Set Instance2 = New Class2
   
   Instance1.Text = "kk"
End Sub

Public Event OnChange(ByVal Text As String)

Public Property Let Text(ByVal Value As String)
   RaiseEvent OnChange(Value)
End Property

Private WithEvents Instance1 As Class1

Private Sub Instance1_OnChange(ByVal Text As String)
   Call MsgBox(Text)
End Sub

Private WithEvents m_Instance1 As Class1

Private Sub Class_Initialize()
   Set m_Instance1 = Instance1
End Sub

Private Sub m_Instance1_OnChange(ByVal Text As String)
   Call MsgBox(Text)
End Sub