Как получить коллекцию всех выбраных элементов комбобокс?

Private Sub CommandButton2_Click()
' наполняем комбобоксы данными
' это не относится к задаче, но создает почву для теста
' принцип наполнения комбобоксов тот же что и при опрашивании
 
j = -1
For Each i In Me.Controls
j = j + 1
    If TypeName(i) = "ComboBox" Then
        With i
            .Clear
            .AddItem "1"
            .AddItem "2"
            .AddItem "3"
            .AddItem "4"
            .AddItem "5"
        End With
        i.Value = i.List(j)
    End If
Next i
 
End Sub
 
Private Sub CommandButton1_Click()
Dim mas(1, 4) ' имя- комбобокса - значение комбобокса
' наполняем массив именами и значениями комбобоксов (опрашиваем все комбобоксы на форме в цикле)
j = -1
For Each i In Me.Controls
j = j + 1
    If TypeName(i) = "ComboBox" Then
        mas(0, j) = i.Name
        mas(1, j) = i.Value
    End If
Next i
' вываливаем содержимое массив в текстбокс - для иллюстрации содержимого массива
Me.TextBox1.Text = ""
For i = 0 To UBound(mas, 2)
    Me.TextBox1.Text = Me.TextBox1.Text & mas(0, i) & Chr(9) & mas(1, i) & Chr(13)
Next i
End Sub

Private Sub CommandButton3_Click()
Set col = New Collection ' коллекция комбобоксов
' наполняем коллекцию комбобоксами (опрашиваем все комбобоксы на форме в цикле)
For Each i In Me.Controls
    If TypeName(i) = "ComboBox" Then
        col.Add Me.Controls(i) 
    End If
Next i
' вываливаем содержимое в текстбокс
Me.TextBox1.Text = ""
For Each i In col
    Me.TextBox1.Text = Me.TextBox1.Text & CStr(Me.Controls(i).Name) & Chr(9) & CStr(Me.Controls(i).Value) & Chr(13)
Next i
End Sub

Private Sub CommandButton3_Click()
Dim col As Collection, i As Object
Set col = New Collection ' коллекция комбобоксов
' наполняем коллекцию комбобоксами (опрашиваем все комбобоксы на форме в цикле)
For Each i In Me.Controls
    If TypeOf i Is ComboBox Then  'лучше
        col.Add i                 '!
    End If
Next i
' вываливаем содержимое в текстбокс
Me.TextBox1.Text = ""
For Each i In col
    Me.TextBox1.Text = Me.TextBox1.Text & i.Name & Chr(9) & i.Value & Chr(13) '!
Next i
End Sub