ExportStatic Property vValue As Variant[]Static Private $vValue As New Variant[]Static Private Function vValue_Read() As Variant[] Return $vValueEndStatic Private Sub vValue_Write(Value As Variant[]) $vValue = ValueEnd