Variant Serialization and Deserialization

Sub TestVariantSerialization()     
 
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание     
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание     
    Dim t, arr, byteArr     
     
    Range("A:B").value2 = "Tst Srl ёя"        
  
    t = Timer         
    byteArr = bVBA.VariantSerialization(Range("A:B").value2)         
    arr = bVBA.VariantDeserialization(byteArr)     
    Debug.Print "VariantSerialization+VariantDeserialization " & Timer - t & " s."     
 
    Range("D:E").value2 = arr     
 
End Sub