PrivateSub TextBoxes_TextChanged()Sub TextBoxes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged SelectCaseDirectCast(sender, TextBox).Name Case TextBox1.Name MsgBox("The text in the first TextBox has changed") Case TextBox2.Name MsgBox("The text in the second TextBox has changed") Case TextBox3.Name MsgBox("The text in the third TextBox has changed") EndSelect End Sub