Data Entry Form with Multiple Checkboxes

Thank you! Now it's working

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

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