[goochy]

Lotus Notes has a collection of objects that allows you to use a string to refer to the index.
Is there a VB6 equivalent function or a class that exists?

What I am doing is going through a grid controls contents that isn't sorted, building a string of values that the user has entered like;
(I'll separate the columns with commas for this example)

Make, Result
Ford, A
Ford, B
Ford, C
GMH , A
GMH, D

The resultant list will have; (I am using the ~ as a deliminator)
The code would say;

Code:

Car(Make) = Car(Make) & "~" & Result

Which if you debugged would look like;

Code:

Car("Ford")= "A~B~C"
Car("GMH")= "A~D"

The Lotus example is this in case my example above doesn't make sense.

Code:

' Make string comparison case insensitive
' in this module.
Option Compare NoCase
' Declare a list—myList—to hold first names.
' The list tags will be unique IDs.
Dim myList List As String
Dim newTag As String
Dim newValue As String
' Put some elements in the list.
myList("A1234") = "Andrea"
myList("A2345") = "Vera"
myList("A3456") = "Isabel"
' Ask the user to enter an ID and a name.
newTag$ = InputBox$("Please enter your ID:")
newValue$ = InputBox$("Please enter your first name:")
' Add a new element to the list with
' the user's ID as the list tag and the user's name as
' the value of the new element.
myList(newTag$) = newValue$
Print myList(newTag$)
' Output: the name that the user entered

Thanks for any assistance with this.