Loop through Userform Controls and assign value control to cell

I'm using Excel 2010

I'm trying to loop through an UserForm and access all the values selected in each control. The userform contains ComboBoxes, TextBoxes, and ListBoxes. Multiselect function is enabled in all listboxes.

i = 1
For Each ctrl In UserForm1.Controls
     If TypeName(ctrl) <> "ListBox" Then
         ws.Cells(2, i) = ctrl.Value
     End If
     i = i + 1
Next ctrl

It seems that I can't access the value of each control using ctrl.Value

Each control will have its value written on a new column on the same row. Each ListBox with multiple items will have all its selected items written down the same column on new rows.

EDIT:
I realized that values can be access with ctrl.Value for TextBox and ComboBox. I need help to access values selected on ListBoxes