When a checkbox is checked the multiple textboxes become visible however I need a second activity

I have working code to show and hide some text boxes etc, however I wanna have the text which is filled in one of those text boxes appears in a cell. Actually 2 text box values separate by a comma in one cell.

Private Sub CheckBox2_Click()
If CheckBox2 Then
    ComboBox151.Visible = True
    TextBox227.Visible = True
    TextBox228.Visible = True
    Label358.Visible = True
    Label359.Visible = True
    TextBox_combi.Visible = True
    comments.Visible = True
Else
    ComboBox151.Visible = False
    TextBox227.Visible = False
    TextBox228.Visible = False
    Label358.Visible = False
    Label359.Visible = False
    TextBox_combi.Visible = False
    comments.Visible = False
End If

End Sub