[RESOLVED] Store binary data in UserControl?

[fafalone]

Private mBA() As Byte

Public Property Let BA(nBA As Variant)
    mBA = nBA
End Property

Public Property Get BA() As Variant
    BA = mBA
End Property

Private Sub UserControl_InitProperties()
    mBA = vbNullString
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    mBA = PropBag.ReadProperty("BA", vbNullString)
    Debug.Print UBound(mBA)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "BA", mBA, vbNullString
End Sub

This doesn't run up against one of the limits for the data size of variables? Would really be a mess.