Textjoin based on checkbox

[Gixxer Lad]

Good evening all,
I would like a little assistance if possible, I have a userform with a list of names (labels) and a checkbox for each one, what I am after is to textjoin all the selected names separated by a comma.
For example, with the scenario below I would like to have the text "Bill, George, Luke" in cell A1 when the userform is exited.
I have been trying with the likes of:

dim str as string
str = worksheetfunction.textjoin ?? IF ????????????
and then transferring str to cell A1

But I am having no luck so must be doing something wrong.

As always, any help is greatly appreciated.
Kind regards

 

[Gixxer Lad]

Additional
labels are Label1, Label2, Label3 and checkboxes are Checkbox1, Checkbox2, Checkbox3 etc.

 

[Gixxer Lad]

Good evening, any help on the question would be appreciate.
kind regards

 

[dreid1011]

I would imagine looping through the checkboxes and for each one checked, add to the text string with the label value and a comma.

This is not exact code.. just an example of the process I am imagining.

Loop
If check box checked = true Then
  str = str & label.name & ","
End If
Next