Adding ActiveX Listbox, set its properties, add items, at Runtime

I have this code that when I click a commandbutton, a listbox is created in the sheet.
But I have difficulty adding items on it the moment I click that same button. What I want to do is when that button is click, a list box is created, set the ListStyle = 1, MultiSelect = 1 so that a checkbox will appear, and add items on it. I can do this when I add the listbox in the sheet, but during design time only. I can then add items on it and set the properties in the code. Here's what I got so far. But gives me an error "Runtime error 438".