I have a combo box on a user form and have the box filling in with
concatenated data and woudl liek to make it into columns instead.
Here is the code that I have. The loop goes through and takes out all
of the "Item Numbers" which are in every 4th row. Then I will also
need the Quantity which is in i.offset(1,0) and the Date in i.offset
(2,0) and finally if the interior color is 4 I want the word
"Promise". I hope you can help.

For Each i In Rng1 'fills in items from run Combo at bottom
from cut area
'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,
Jay