textbox will display the string depending on which checkbox is checked - excel

Question

I have a UserForm with 3 checkbox and 1 textbox..I want to display a string in textbox depending on which checkbox is tick.
chkProcessor is tick = Processor is the brain of computer...
chkRam is tick = RAM stick usually we call it memory
chkCmos is tick = It's like a coin type battery..
if 2 or more checkbox is tick then it will display their respective string.
this is the form
Here's my code:
Private Sub chkCmos_Click()
If chkCmos.Value = True Then
txtVerbiage.Text = txtVerbiage.Text & "It's like a coin type battery.." & Chr(10)
Else
' I WANT THE ABOVE TEXT TO BE NOT DISPLAYED THEN
End If
End Sub
Private Sub chkProcessor_Click()
If chkProcessor.Value = True Then
txtVerbiage.Text = txtVerbiage.Text & "Processor is the brain of computer..." & Chr(10)
'I WANT TO HAVE A LINE BREAK HERE.
txtVerbiage.Text = txtVerbiage.Text & "Normally sets below the heat sink..." & Chr(10)
Else
' I WANT THE ABOVE TEXT TO BE NOT DISPLAYED THEN
End If
End Sub
Private Sub chkRam_Click()
If chkRam.Value = True Then
txtVerbiage.Text = txtVerbiage.Text & "RAM stick usually we call it memory" & Chr(10)
Else
' I WANT THE ABOVE TEXT TO BE NOT DISPLAYED THEN
End If
End Sub
Private Sub cmdErase_Click()
txtComment.Text = ""
txtVerbiage.Text = ""
chkProcessor.Value = False
chkRam.Value = False
chkCmos.Value = False
End Sub

Answer 1

Try this:
Private Sub chkProcessor_Click()
DisplayManager
End Sub
Private Sub chkRAM_Click()
DisplayManager
End Sub
Private Sub chkCmos_Click()
DisplayManager
End Sub
Sub DisplayManager()
Dim cb As MSForms.Control, txt As String
txt = vbNullString
Me.txtVerbiage.Value = txt
For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "CheckBox" Then
If ctrl.Value Then
txt = txt & GetMessage(ctrl.Name) & vbCrLf
End If
End If
Next ctrl
Me.txtVerbiage.Value = txt
End Sub
Function GetMessage(cbName As String) As String
Dim str As String
If cbName = "chkProcessor" Then
str = "Processor is the brain of computer..."
ElseIf cbName = "chkRam" Then
str = "RAM stick usually we call it memory"
ElseIf cbName = "chkCmos" Then
str = "It's like a coin type battery..."
End If
GetMessage = str
End Function
For txtVerbiage set Multiline to True (in VB editor properties)
Each chkXXX calls DisplayManager to manage text display
The text will appear in the order of the chkXXX on the Userform