Проблема со Stream-объектом

    Dim report As testDesigner
  
    Set report = New testDesigner
    
    Dim myBArray As Variant
    Dim myHRMLExport As ActiveReportsHTMLExport.HTMLexport
    Set myHRMLExport = New ActiveReportsHTMLExport.HTMLexport
    
    Dim objStream As Stream
    Dim varA As Variant
    Dim bytA() As Byte
    Dim i As Long
    Dim strBytes As String
    
    
    report.Run
    myHRMLExport.ExportStream report.Pages, myBArray
    
    'Instantiate and Open Stream
    
    Set objStream = New Stream
    objStream.Open
    
    'Load an array of bytes 
    ReDim bytA(UBound(myBArray))
 
    For i = 1 To UBound(myBArray)
        bytA(i) = CByte(myBArray(i))
    Next
    
    'Write the buffer to the binary stream and display
    objStream.Position = 0
    objStream.Type = adTypeBinary
    objStream.Write bytA()
    'objStream.SetEOS
    
    'Text1.Text = 'Binary after write:'
    'Text1.Text = objStream.Read
    'Text1.Text = objStream.Size
    
    
    'Switch back to a text stream and display
    'Debug.Print 'Translated back:'
    objStream.Position = 0
    objStream.Type = adTypeText
    objStream.Charset = 'Windows-1252'
    
    'Debug.Print objStream.ReadText '!!!!!!!! Poluchaetsja !!!!
    MsgBox (objStream.ReadText)     '!!!!!!!! Ne poluchaetsja !
    
    Text1.Text = objStream.Size
    'Text1.Text = objStream.ReadText '!!!!!!!! Ne poluchaetsja !

Bylo tak: 
 
    For i = 1 To UBound(myBArray)
        bytA(i) = CByte(myBArray(i))
    Next
 
A nado:
 
    For i = LBound(myBArray) To UBound(myBArray)
        bytA(i) = CByte(myBArray(i))
    Next