Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox5.TextChanged, TextBox4.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged
Select Case sender.Name
Case "TextBox1"
Case "TextBox2"
Case "TextBox3"
Case "TextBox4"
Case "TextBox5"
Case Else
End Select
End Sub
:)