Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT

Option Explicit
 
Sub Test_VariantToFromFile()
 
    Dim listViewSave, listViewLoad, resultVtoF, resultVfromF, aray2D
    Dim aray2DHeader: ReDim aray2DHeader(1 To 2, 1 To 2)
    Dim aray2DData: ReDim aray2DData(1 To 2, 1 To 3)
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    
    'сохраним массив и описания к нему (дерево свойств объекта)
    listViewSave = Array("ListView309" _
                , Array("Header" _
                        , aray2DHeader) _
                , Array(Array("Data", Array(1, 2)) _
                        , aray2DData) _
                , Array("Width" _
                        , Array(150, , 160)) _
                , Array("ComboBox" _
                    , Array(Array(, 111), , Array(222)) _
                    , Array(111, Array("", "(", "((", "(((", "((((", "(((((")) _
                    , Array(222, Array("", ")", "))", ")))", "))))", ")))))")) _
                    ) _
                , Array("RC" _
                    , Array(Array(196, 197), , 198) _
                    , Array(197, "строка-бинарные данные ресурса") _
                    ) _
                )
    
    'сохраняем в файл
    'если вторым аргументом передаем пустую строку(полный путь к файлу) - работаем в интерактивном режиме (открываем форму)
    resultVtoF = bVBA.VariantToFile(listViewSave, "")
    If resultVtoF = 1223 Then Exit Sub 'отменено пользователем
    
    'загружаем из файла
    'если вторым аргументом передаем пустую строку(полный путь к файлу) - работаем в интерактивном режиме (открываем форму)
    resultVfromF = bVBA.VariantFromFile(listViewLoad, "")
    If resultVtoF = 1223 Then Exit Sub 'отменено пользователем
 
End Sub