' clsTextBoxEvents 类模块代码
Public WithEvents txtBox As MSForms.TextBox
Public parentForm As Object

Private Sub txtBox_Change()
    ' 这里处理Change事件
    MsgBox "文本框内容已改变: " & txtBox.Value
    ' 可以访问parentForm来操作表单上的其他控件
End Sub

' 表单模块代码
Dim colTextBoxes As Collection

Private Sub UserForm_Initialize()
    Set colTextBoxes = New Collection
    
    ' 动态创建文本框
    Dim txtBox As MSForms.TextBox
    Set txtBox = Me.Controls.Add("Forms.TextBox.1", "DynamicTextBox1")
    With txtBox
        .Left = 10
        .Top = 10
        .Width = 100
        .Height = 20
    End With
    
    ' 为文本框添加事件处理
    Dim txtEvent As clsTextBoxEvents
    Set txtEvent = New clsTextBoxEvents
    Set txtEvent.txtBox = txtBox
    Set txtEvent.parentForm = Me
    
    colTextBoxes.Add txtEvent
End Sub

Private Sub UserForm_Initialize()
    Dim txtBox As MSForms.TextBox
    Set txtBox = Me.Controls.Add("Forms.TextBox.1", "DynamicTextBox1")
    With txtBox
        .Left = 10
        .Top = 10
        .Width = 100
        .Height = 20
        .OnChange = "DynamicTextBox_Change"
    End With
End Sub

' 必须放在表单模块中
Public Sub DynamicTextBox_Change()
    MsgBox "文本框内容已改变"
End Sub

Private Sub UserForm_Terminate()
    Set colTextBoxes = Nothing
End Sub