Private Sub txtAddress1_Change() TextChange ActiveControl, oBusObjec, etc.. ' Inherited code. ' add any txtAddress1 specific code here. End SubSo it you have some code you want to fire for all Change Events (or whatever) you can maintain it in one place.