Private Sub TextBox_Change(Index As Integer)
    ‘ The textbox that fired the event gets its text property changed.
    TextBox (Index).Text = "something"
End Sub

For i = 1 To 6
     TextBox(i).Text = "TextBox"
Next

Private Sub AllControlButtins_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs) _
      Handles Button1.Click, _
                  Button2.Click, _
                 Button3.Click

=====================================================
Module For frmParent:

frmParent  has two TextBox controls on it:  txtTextBox1 and txtTextbox2
=====================================================

Option Compare Database

' Collection to store instances of clsTextBox
Private colTextBoxes As New Collection
Private ctlTextBox As clsTextBox

Public Sub WhichTextBox(ctl As TextBox)
    ' Notify user which TextBox fired the change event.
    MsgBox "ChangeEvent fired by: " & ctl.Name
End Sub

Private Sub Form_Load()
    
    ' Instantiate new clsTextBox objects.
    ' Each object holds a reference to one
    ' of the textbox controls on the form
    ' and a reference to the controls parent
    ' form. The newly instantiatied object is
    ' then added to the colTextBoxes collection.
    
    ' Create a class to reference txtTextBox1
    Set ctlTextBox = New clsTextBox
    ctlTextBox.Initialize txtTextBox1, Me
    colTextBoxes.Add ctlTextBox
    
    ' Create a class to reference txtTextBox2
    Set ctlTextBox = New clsTextBox
    ctlTextBox.Initialize txtTextBox2, Me
    colTextBoxes.Add ctlTextBox
    
End Sub

=====================================================
Class Module for clsTextBox:

Sinks Change events for all clsTextBox objects
=====================================================

Option Compare Database
Option Explicit

' Holds a reference to one TextBox control on
' frmParent. It is declared WithEvents so it
' can sink events for the TextBox control it
' refers to.
Private WithEvents m_TextBox As TextBox
Private Const mstrEventProcedure = "[Event Procedure]"

' Holds a reference to the parent form that hosts
' the TextBox control.
Private m_Form As Form_frmParent

' Initialize a new clsTextBox object, passing it
' references to a TextBox control and its parent
' form
Public Sub Initialize(ctl As TextBox, frm As Form_frmParent)
    Set m_TextBox = ctl
    
    'Set the OnChange property of the control to [Event Procedure]
     m_TextBox.OnChange = mstrEventProcedure
    Set m_Form = frm
End Sub

' This event handler will handle the Change event for each
' TextBox control referenced by a clsTextBox object in
' colTextBoxes.
Private Sub m_TextBox_Change()
    
    ' Call the WhichTextBox method of the parent form, passing
    ' it the instance of the TextBox that fired the Change event.
    m_Form.WhichTextBox m_TextBox
    
End Sub

' Garbage collection.
Private Sub Class_Terminate()
    Set m_TextBox = Nothing
    Set m_Form = Nothing
End Sub

Private Sub cmdButton1_Click()
    Dim ctl As Control
    Dim i As Integer

    For Each ctl In Me.Controls
        If Not ctl.Tag = "" Then
            For i = 1 To 3 ' Effects controls whose tag property is in the range 1 to 3
                If ctl.Tag = i Then
                    ctl.Enabled = True
                End If
            Next
        End If
    Next

End Sub

Private Sub Form_Load()
    
    ' Instantiate new clsTextBox objects.
    ' Each object holds a reference to one
    ' of the textbox controls on the form
    ' and a reference to the controls parent
    ' form. The newly instantiatied object is
    ' then added to the colTextBoxes collection.

    Dim ctl As Control
    Dim i As Integer

    For Each ctl In Me.Controls
        With ctl
            If .ControlType = acTextBox Then
                Set ctlTextBox = New clsTextBox
                ctlTextBox.Initialize ctl, Me
                colTextBoxes.Add ctlTextBox
            End If
        End With
    Next ctl
    
End Sub

   ' Create a class to reference txtTextBox1
    Set ctlTextBox = New clsTextBox
    ctlTextBox.Initialize txtTextBox1, Me
    colTextBoxes.Add ctlTextBox