Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles _
  TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, _
  TextBox4.TextChanged, TextBox5.TextChanged, TextBox6.TextChanged, _
  TextBox7.TextChanged, TextBox8.TextChanged, TextBox9.TextChanged, _
  TextBox10.TextChanged
 
        Dim tb As TextBox = sender
 
        MessageBox.Show(tb.Name)
 
    End Sub

EALA FREYA FRESENA