Implements ITextBoxEvents
Private COLTextBoxes As New Collection ' рекомендуется разделять объявление и создание, но если обязательно создается, то возможно и так
' закидываете поля в класс, который сохраняете в коллекции
Dim Mess$()
Mess = Array("fld16", "fld17", "fld18", "fld20", "fld21", "fld22")' поля
 For i = 0 To UBound(Mess)
            With New clsTextBox
                .Initialize sufrm.Controls(Mess(i))
                COLTextBoxes.Add .Instance
            End With
set clsTextBox=nothing
    Next
'---------------------
Private Sub ITextBoxEvents_change(sender As Textbox)
recordChange ' событие, ради которого все и затевалось
end sub

При закрытии коллекцию лучше уничтожить
Private Sub Class_Terminate()
 Set COLTextBoxes = Nothing
End Sub

'===================================
'Интерфейсный класс ITextBoxEvents
Option Compare Database
Option Explicit

Public Sub change(sender As Textbox)

End Sub

'================================
'это наш класс clsTextBox, в который закидываем поля 
Option Compare Database
Option Explicit
Private TextBoxEvents As ITextBoxEvents
Private WithEvents tbx As Textbox

Private Sub Class_Terminate()
    Set tbx = Nothing
End Sub

Private Sub tbx_change(Cancel As Integer)
    TextBoxEvents.change tbx
End Sub
Public Sub Initialize(tb As Textbox)
    Set tbx = tb
    With tbx
        .Onchange = "[Event Procedure]"
    End With
Set TextBoxEvents = tbx.parent' иногда может быть не так (если форма создана в модуле и имеет подчиненную форму, в которой прописываем эти события, то лучше явно указать модуль с которым работем)
' Property Set ustsvz(tmp As ClFormAnalizCommerce)
' Set TextBoxEvents = tmp
' End Property

End Sub
Public Property Get Instance() As clsTextBox
    Set Instance = Me
End Property