Modules & VBA :: Multi-Value ComboBox Selections

I found a snippet of code online that I'm trying to use in an asset tagging database I'm developing, but I'm struggling to get it working. To start, I have a multi-column ComboBox that displays information in this format:

1001 | iPhone5c
1002 | iPhone5s
1003 | iPhone6
1004 | iPad2
1005 | iPad3

When you select an asset to be assigned to an employee, the ComboBox displays only the asset number (e.g., 1001). While that information is pertinent to our I.T. group, when Human Resources goes to collect an asset from an employee, they don't want to be taking cases off of phones or tablets to verify they have the correct asset number. They want to see the person has an iPhone5s and an iPad2 that they have to collect. So, what I'm trying to accomplish in my VBA is to have access read all the asset numbers and provide the descriptions of those items in another field.

The code I have so far is:

Dim ctl As ComboBox
Dim varItm As Variant, str As String
str = ""
Set ctl = Me.Combo217
For Each varItm In ctl.ItemsSelected
str = ctl.Column(2, varItm) & ","
Next varItm
Me.Text207.Value = str

Since this is code is something I found online, I'm not sure why I can't get it to work. I've never worked with the Variant declaration, but I think this may be where the code is breaking because whenever I remove the "For Each...Next", the code correctly assigns the value of column 2 of my very first row to my text box (Text207). Everything I've seen looks as though I don't have to declare varItm because it's function is to represent the rows that are checkmarked for ctl.ItemsSelected.