Добавление текста в TextBox в зависимости от выбора определенных CheckBox

Dim text As String = TextBox1.Text
        Dim deletingText As String = "555"
        text = text.Replace(deletingText, "")
        TextBox1.Text = text

Private Sub CheckBox1_CheckedChanged(ByVal sender As CheckBox, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
        If sender.Checked = True Then
            TextBox1.AppendText(sender.Tag)
        Else
            TextBox1.Text = TextBox1.Text.Replace(sender.Tag, "")
        End If
    End Sub

Public Class Form1
    Dim addText As String = "Текст который добавляем в текстбокс, если чекбокс выбран."
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked
            TextBox1.AppendText(addText)
            Else 
            if TextBox1.Text.Contains(addText)
                TextBox1.Text = Replace(TextBox1.Text, addText, "")
            End If
        End If
    End Sub
End Class

    Private Sub CheckBox1_CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
        Dim dict = New Dictionary(Of CheckBox, String) From
        {
            {CheckBox1, "123"},
            {CheckBox2, "555"}
        }
        Dim f =
            Function(chb As CheckBox)
                Return If(chb.Checked, dict(chb), "")
            End Function
        TextBox1.Text = $"Здесь какой-то текст {f(CheckBox1)}, здесь еще текст {f(CheckBox2)}. И здесь тоже текст."
 
    End Sub