Private cval As Integer
    Private setVal As Boolean
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles b1.Click, b2.Click, b3.Click, ....
        Dim b As Button = CType(sender, Button)
        If b.Text = "Off" Then
            b.Text = "On"
            cval += CInt(b.Tag)
        Else
            b.Text = "Off"
            cval -= CInt(b.Tag)
        End If
        setVal = True ' TextChanged() unterdrücken
        TextBox1.Text = cval.ToString()
        setVal = False
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist