Data Entry Form with Multiple Checkboxes

I'm creating an Excel Data Entry form with checkboxes and I would like to allow the user to select multiple checkboxes so the Excel cell reads "Multivitamin, Vitamin D, etc." instead of just "Multivitamin"

Here's the code that is currently only adding the information from the first selected checkbox instead of multiple selected checkboxes

'Adding Vitamins Info
    Dim vitaminList As Object
    Set vitaminList = CreateObject("System.Collections.ArrayList")
    
    ' Add items
    If OptionMulti Then
    vitaminList.Add "Multivitamin"
    End If
    If OptionVitaminD Then
    vitaminList.Add "Vitamin D"
    End If

     ' Copy to array
    Dim vitArray As Variant
    vitArray = vitaminList.toArray
    
    ' Write to a cell
    Cells(emptyRow, 8) = vitArray

Sample Excel worksheet:
Worksheet.jpg

User form:
UserFormScreenshot.jpg