Return data to datasheet when checkbox in the form is checked

[Apple Ling]

Hi,

I have a form with multiple checkbox in and this allow user to select multiple options. I need to display those checked data in the same column with same id and some others static detail. I'm able to display the static detail but don't know how to put the checkbox value in the same column.

For example, orange and apple are checked. The data need to display in datasheet as below.

Column A Column B Column C Column B
ID abc 05Jan13 Star Apple
ID abc 05Jan13 Star Orange

Private Sub cmdAdd_Click()
    Dim lngWriteRow As Long
    Dim ws As Worksheet
 

Set ws = Worksheets("Sheet2")


lngWriteRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row

If lngWriteRow < 2 Then lngWriteRow = 2

    ws.Range("A" & lngWriteRow) = txtID.Value
    ws.Range("B" & lngWriteRow) = txtDate.Value
    ws.Range("C" & lngWriteRow) = txtMediaName.Value
    ws.Range("D" & lngWriteRow) = txtMediaType.Value
    ws.Range("E" & lngWriteRow) = txtAudCir.Value
    ws.Range("F" & lngWriteRow) = txtASR.Value
  
End Sub

Thanks,
Apple