Dim varTemp As Variant
Dim byteArr() As Byte

    ' Instantiate the PropertyBag object.
    Set pb = New PropertyBag
    ' Read the file contents into a Variant.
'читаем содержимое файла-хранилища в байтовый массив
    Open App.Path & "\orderdata.txt" For Binary As # 1 
    Get # 1 , , varTemp
    Close # 1 
    ' Assign the Variant to a Byte array.
    If IsEmpty(varTemp) Then
        Exit Sub
    End If
    
    byteArr = varTemp
    ' Assign to the PropertyBag Contents property.
'загружаем полученный байтовый массив в наш PropertyBag
    pb.Contents = byteArr
    ' Instantiate the object from the PropertyBag
'присваем наш объект класса из хранилища
    Set Order = pb.ReadProperty("MyOrderObject")
'получаем свойства со значениями из заполенного объекта класса
    Me.Text1 = Order.Customer
    Me.Text2 = Order.Product
    Me.Text3 = Order.Quantity