Update Textbox if Checkbox clicked

[sharky12345]

I have a series of Checkboxes on a Userform and I need to update a Textbox if they are checked.

If the Checkbox is clicked true, I currently have a specific value added to a Textbox - but how do I remove that value if the user unchecks the box?

Purely as an example let's say the value is "Test"

 

[VBA Geek]

in your userform module (checkbox1 and textbox1 are the names of my userform, you may need to change them)

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.TextBox1.Value = "TEST"
    Else
        Me.TextBox1.Value = vbNullString
    End If
End Sub

 

[sharky12345]

Thanks, and sorry, I should have explained better - if there is other text in the Textbox I need that to remain and only remove the value that is associated with the Checkbox.

 

[VBA Geek]

this then?

Const valToappend = [B]" Test"[/B]

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value Then
        Me.TextBox1.Value = Me.TextBox1.Value & valToappend
    Else
        Me.TextBox1.Value = Left(Me.TextBox1.Value, Len(Me.TextBox1.Value) - Len(valToappend))
    End If
End Sub