' textboxen
    Private Sub txtMaß_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
    Handles txtMaß1.TextChanged, txtMaß2.TextChanged, txtMaß3.TextChanged, _
    txtMaß4.TextChanged
        MsgBox("bla")
    End Sub

    ' textboxen
    Private Sub txtMaß_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) _
    Handles txtMaß1.TextChanged, txtMaß2.TextChanged, txtMaß3.TextChanged, _
    txtMaß4.TextChanged
        MsgBox(TextboxDieAufgerufenWurde()) ' sollte zB "txtMaß2" ergeben
    End Sub

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?