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

To check listboxes, use code like

    With UserForm1.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                ws.Cells(3, i+1) = .List(i)
            End If
        Next i
    End With

Since you allow multi-select, you will either need to use one row for each listbox, or keep track of the count of selected items to use with an offset to prevent overwriting.

Try code like this - not sure how you are indexing through the cells, so make changes there...

    Dim ctrlT As Control
    Dim lngC As Long

    lngC = 5 'First column for the listbox results

    For Each ctrlT In Me.Controls
        If TypeName(ctrlT) = "ListBox" Then
            With ctrlT
                For i = 0 To .ListCount - 1
                    If .Selected(i) = True Then
                        ws.Cells(i + 2, lngC) = .List(i)
                    End If
                Next i
            End With
            lngC = lngC + 1
        End If
    Next ctrlT