Sub Main()

Dim oEnv As New clsD3Environment

Dim oArray_TopSellers As New clsD3DynamicArray

Dim oArray2 As clsD3DynamicArray

oArray_TopSellers.brCString = "Smith" & D3AMChr & "Jones" & _

D3AMChr & "Green"

Set oArray2 = oArray_TopSellers.brClone

' Create a comma-delimited list.

oArray2.brConvert D3AMChr, ","

Debug.Print "The top sellers are " & oArray2.brCString

' Extract the 1st attribute.

Debug.Print "The #1 seller is " & _

oArray_TopSellers.brExtract(1).brCString

Set oArray_TopSellers = Nothing

Set oEnv = Nothing

End Sub