Sub Main()

Dim oEnv As New clsD3Environment

Dim oDynArray1 As clsD3DynamicArray

Dim oDynArray2 As clsD3DynamicArray

Dim sStr As String

Set oDynArray1 = oEnv.brOpenDynamicArray

Set oDynArray2 = oEnv.brOpenDynamicArray

oDynArray1.brInsertStr "Allen", 1

oDynArray1.brInsertStr "Kevin", 2

sStr = "Allen" & D3AMChr & "Kevin"

If oDynArray1.brEqualStr(sStr) Then

Debug.Print "The dynamic arrays are equal"

End If

oDynArray2.brCString = sStr

If oDynArray1.brEqual(oDynArray2) Then

Debug.Print "The dynamic arrays are equal"

End If

End Sub