VB Code:
Private Text(2) As TextBox 'an array so we can address the controls by index
Private Sub Init 'run this at the start of the program to fill the array
Set Text(1) = Text1
Set Text(2) = Text2
End Sub
Private Sub TextChange(Index As Long) 'the master change sub for a textbox, it is told the index of the textbox
MsgBox Text(Index).Text
End Sub
Private Sub Text1_Change() 'catch the change event of a control
TxtChange 1 'and send it to the master change sub, along with the controls index
End Sub
Private Sub Text2_Change()
TxtChange 2
End Sub