Class Dictionary
    ' Define a local variable to store the property value.
    Private dictVars As String()
    Dim vKeys

    ' Define the default property.
    Default Public Property Prop1(ByVal Index As Integer) As String
        Get
            Return dictVars(vKeys)
        End Get
        Set(ByVal Value As String)
            If dictVars Is Nothing Then
                ' The array contains Nothing when first accessed.
                ReDim dictVars(0)
            Else
                ' Re-dimension the array to hold the new element.
                ReDim Preserve dictVars(UBound(dictVars) + 1)
            End If
            dictVars(vKeys) = Value
        End Set
    End Property

End Class