Using jagged array to associate one to many

Hi,
I have built the this code to simplify what I'm trying to accomplish.
How would I know what colors steve likes or anybody else in the list?
Thanks for anybody who helps.

PHP Code: 

Sub test()
Dim names() As Variant
Dim things() As String

ReDim names(3)
names(1) = "Steve"
names(2) = "Jack"
names(3) = "Tobias"
a = "red"
b = "blue"
c = "white"

j = 1
For i = 1 To UBound(names)
    
   If i = 1 Then
    ReDim Preserve things(2)
    things(1) = a
    things(2) = b
    names(1) = things
    End If

If i = 2 Then
    ReDim Preserve things(1)
    things(1) = c
    names(2) = things
    End If

If i = 3 Then
    ReDim Preserve things(3)
    things(1) = c
    things(2) = a
    things(3) = b
    names(3) = things
    End If

 
Next i

End Sub 


1) One way based on your code.

Please Login or Register  to view this content.

2) Have you tried Dictionary object?

Please Login or Register  to view this content.