How to put comma or semicolon in Listbox using AddItem

If you try to add list item, containing text with comma or semicolon, to Access listbox using .AddItem method - item will be split into rows, listbox interpret comma as separator:

Me.List0.AddItem "One, two, three"

The trick is to put string in quotes:

Me.List0.AddItem "'One, two, three'"

How to get subform control name

Say you have FormA inserted several times on FormB as subform, and you want to know subform control name from button click event on FormA – you can use this code:

MsgBox "Subform control name is: " & _
Me.Parent.ActiveControl.Name