<font color=green>' Code der Klasse</font>
Option Explicit
 
Private mVariable As Variant
Event VarChange()
 
Public Property Get myVariable() As Variant
  myVariable = mVariable
End Property
 
Public Property Let myVariable(ByVal vNewValue As Variant)
  mVariable = vNewValue
  RaiseEvent VarChange
End Property

<font color=green>' Test</font>
Option Explicit
 
Dim WithEvents MyClass As Class1
 
Private Sub Command1_Click()
  MyClass.myVariable = "Neuer Inhalt"
End Sub
 
Private Sub Form_Load()
  Set MyClass = New Class1
End Sub
 
Private Sub MyClass_VarChange()
  MsgBox "Variableninhalt wurde verändert!"
End Sub