Capturar un evento para cualquier objeto de cierto tipo (aquí TextBox)

VB.NET

For Each c As Object In Form1.Controls
     If c.GetType Is GetType(TextBox) Then
          AddHandler DirectCast(c, TextBox).TextChanged, AddressOf CamposForm_TextChanged
     End If
Next

 Sub CamposForm_TextChanged(ByVal sender As TextBox, ByVal e As System.EventArgs)
     CamposCambiados.Value = CamposCambiados.Value & IIf(CamposCambiados.Value <> "", ", " & sender.ID, sender.ID)
 End Sub