Create Output List From Combobox

The following VBA code creates a list of selected listbox values when used in conjunction with a command button:


Private Sub CommandButton1_Click()

Dim lngLastRow As Long
Dim lngCol As Long
Dim lngIndex As Long

lngLastRow = Range("K" & Rows.Count).End(xlUp).Row + 1
lngCol = 11
For lngIndex = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(lngIndex) Then
Cells(lngLastRow, lngCol) = ListBox2.List(lngIndex)
lngCol = lngCol + 1
End If
Next

End Sub

This works fine for the listbox, however, for my application, I am using a combobox instead of a listbox. When I create a combobox and substitute ComboBox1 in for ListBox2 and run the code, I receive an error message.