Option Explicit
Private mvarValue As String
Private WithEvents Ctrl As TextBox
Public Event ValueChanged()
 
Public Property Get Value() As String
    Value = mvarValue
End Property
 
Public Property Set TextBox(TxtBox As TextBox)
    Set Ctrl = TxtBox
    ctrl_Change
End Property
 
Private Sub ctrl_Change()  'das ist die Ereignisprozedur für die Textbox
    mvarValue = Ctrl.Text
    RaiseEvent ValueChanged
End Sub

Option Explicit
Dim WithEvents clVal As ClassValue
 
Private Sub Form_Load()
    Set clVal = New ClassValue
    Set clVal.TextBox = Text1
End Sub
 
Private Sub clVal_ValueChanged()
    ValLabel.Caption = clVal.Value
End Sub

Private Sub Form_Load()
    Set clVal = New ClassValue
    Set clVal.TextBox = Text1(0)
End Sub

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...