Checkbox to input text to TextBox

[harveya915]

I have a UserForm with TextBoxes (1-4), kind of like answers to questions. Then I have a CommandButton that when clicked inputs the contents from the TextBoxes (1-4) to another TextBox (5) along with some other auto generated text.

I would like to add a checkbox to the UserForm that if checked will add a few more words to TextBox5.

This is the code I have:

Private Sub UserForm1_Initialize()


TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""

End Sub

Private Sub CommandButton1_Click()
TextBox5.Value = "Random Text 1 in Text box 5" & TextBox1.Text & vbNewLine & "Random Text 2 in Text box 5" & TextBox2.Text & vbNewLine & "Random Text 3 in Text Box 5" & TextBox3.Text & vbNewLine & "Random Text 4 in Text Box 5" & TextBox4.Text
 
 
End Sub


Private Sub CommandButton3_Click()
Unload UserForm1
End Sub

I hope I did a good job explaining what I need, if not, please feel free to ask.

Much thanks for any help.

 

[Vagelisr]

How about something like this?

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    TextBox5.Value = TextBox5.Value & "few more words"
End If
End Sub

 

[harveya915]

How about something like this?

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    TextBox5.Value = TextBox5.Value & "few more words"
End If
End Sub

Thanks for the reply.

What if I need it to be run but once the CommandButton1 gets clicked. So if it is checked then I click the button it gives me a certain phrase. But if it's not checked and then I click the button then I get a separate phrase.

 

[harveya915]

I think I solved it (I'm completely new to this)

Private Sub CommandButton1_Click()
If CheckBox1.Value = False Then
TextBox5.Value = TextBox1.Text & "Few More Words 1"
End If
If CheckBox1.Value = True Then
TextBox5.Value = TextBox1.Text & "Few More Words 2"
End If
End Sub

It seems to be working fine, but I would appreciate any feedback.