Mein Vorschlag: Bei jedem Change-Ereignis die Textboxen 1 bis 3 neu berechnen.

###############################################################################

Option Explicit

Dim strWeiterSo As String
Dim strFehler As String
Dim strHinweis As String

Private Sub UserForm_Initialize()
    strWeiterSo = "Mach weiter so, dann schaffst du die Bahnen unter 18."
    strFehler = "Du hast nur 6 Schläge!"
    strHinweis = "Bitte gültigen Wert eingeben."
    Dim n As Integer
    For n = 1 To 3
        Me.Controls("Bahn" & n).Value = 0
    Next n
End Sub

Private Sub Bahn1_Change()
    If Len(Bahn1.Text) = 0 Then
        MsgBox strHinweis
        Exit Sub
    End If
    If Val(Bahn1.Text) = 0 Then
        MsgBox strWeiterSo
    End If
    If Bahn1 > 7 Then
        MsgBox strFehler
    End If
    Call Berechne
End Sub
Private Sub Bahn2_Change()
    If Len(Bahn2.Text) = 0 Then
        MsgBox strHinweis
        Exit Sub
    End If
    If Val(Bahn2.Text) = 0 Then
        MsgBox "Mach weiter so, dann schaffst du die Bahnen unter 18."
    End If
    If Bahn2 > 7 Then
        MsgBox "Du hast nur 6 Schläge!"
    End If
    Call Berechne
End Sub
Private Sub Bahn3_Change()
    If Len(Bahn3.Text) = 0 Then
        MsgBox strHinweis
        Exit Sub
    End If
    If Val(Bahn3.Text) = 0 Then
        MsgBox "Mach weiter so, dann schaffst du die Bahnen unter 18."
    End If
    If Bahn3 > 7 Then
        MsgBox "Du hast nur 6 Schläge!"
    End If
    Call Berechne
End Sub

Private Sub Berechne()
    Dim n As Integer
    For n = 1 To 3
        Me.Controls("Textbox" & n).Text = 0
    Next n
    For n = 1 To 3
        If Me.Controls("Bahn" & n).Value = 1 Then
            Textbox1.Text = Textbox1.Text + 1
        End If
        If Me.Controls("Bahn" & n).Value > 2 Then
            Textbox2.Text = Textbox2.Text - 2
        End If
    Next n
    Textbox3.Text = Val(Bahn1.Text) + Val(Bahn2.Text) + Val(Bahn3.Text)
End Sub