Multiple Columns in ComboBox VBA Excel

[jlclyde]

Hello,
I am looking to add muitiple columns to a combobox on a userform that
has 5 columns. The information is not in a nice laid out array. I am
currently using a for each loop to go through every cell in a range
and extract what I need and concactenate it. This does not look neat
at all.
Every 4th row I want to add the cell that it is on, the date that is
in i.offset(2,0), the quantity that is in i.offset(1,0) and the work
Promise if the interior color index of the cell is 4.

For Each i In Rng1
'Check if it is a promise

If i <> "" And i.Row Mod 4 = 0 Then
If i.Interior.ColorIndex = 4 Then
Prom = "Promise"
Else
Prom = ""
End If

AvailableItems.AddItem (i & " " & i.Offset(1, 0) &
" Cut " & _
i.Offset(2, 0) & " " & Prom)
End If
Next i

Thanks for your help,
Jay