Как работать с потоками IStream в Visual Basic 6

VarPtr(123&) 'Указатель переменной
VarPtr(ByVal 123&) 'Данные переменной (123)

Private Sub x_arr(ByVal arr1)
    MsgBox arr1(0)
End Sub
 
Private Sub Command1_Click()
    Dim strs() As String
    
    ReDim strs(0)
    strs(0) = "strs"
    x_arr strs
End Sub

Public Function MakeHexString( _
                ByRef bData() As Byte) As String
    Dim lLength As Long
    Dim bOut()  As Byte
    Dim lIndex  As Long
    Dim lChar   As Long
    Dim lSymbol As Long
    Dim lDig    As Long
    Dim lValue  As Long
    
    lLength = SafeArrayElementsCount(Not Not bData())
    If lLength <= 0 Then Exit Function
    
    ReDim bOut(lLength * 4 - 1)
    
    For lIndex = 0 To lLength - 1
        
        lValue = bData(lIndex)
        
        For lDig = 0 To 1
            
            lSymbol = (lValue And &HF0) \ &H10
            
            Select Case lSymbol
            Case Is < 10:   lSymbol = lSymbol + &H30
            Case Else:      lSymbol = lSymbol + &H37
            End Select
            
            bOut(lChar) = lSymbol
            
            lValue = lValue * &H10
            lChar = lChar + 2
            
        Next
        
    Next
    
    MakeHexString = bOut()
    
End Function

Option Explicit
Private Declare Function vbaCastObj Lib "msvbvm60" Alias "__vbaCastObj" (ByVal cObj As Object, ByRef pIID As Any) As IUnknown
 
Public Function SaveAsPng(ByVal pPic As IPicture) As Byte()
    Dim ADOStream As Object
    Dim WIAImageFile As Object
    Dim bIID_IStream(1) As Currency ' IStreamGUID
    
    Do While WIAImageFile Is Nothing
        Set ADOStream = CreateObject("ADODB.Stream")
        
        ADOStream.Type = 1 ' adTypeBinary
        ADOStream.Open
        
        ' Extract an IStream object from an ADODB.Stream object
        bIID_IStream(0) = 0.0012@
        bIID_IStream(1) = 504403158265495.5712@
        
        pPic.SaveAsFile ByVal ObjPtr(vbaCastObj(ByVal ADOStream, bIID_IStream(0))), True, 0
        
        If ADOStream.Size > 0 Then
            ADOStream.Position = 0
            
            With CreateObject("WIA.Vector")
                .BinaryData = ADOStream.Read
                
                If pPic.Type <> vbPicTypeBitmap Then
                    Set pPic = .Picture ' This converts pPic to vbPicTypeBitmap subtype
                Else
                    Set WIAImageFile = .ImageFile
                End If
            End With
        Else
            Exit Function
        End If
    Loop
    
    ' Serialize WIA.ImageFile to PNG file format
    With CreateObject("WIA.ImageProcess")
        .Filters.Add .FilterInfos("Convert").FilterID
        .Filters(.Filters.Count).Properties("FormatID").Value = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}" ' wiaFormatPNG
        SaveAsPng = .Apply(WIAImageFile).FileData.BinaryData
    End With
End Function

pPic.SaveAsFile ByVal ObjPtr(vbaCastObj(ADOStream, bIID_IStream(0))), True, 0

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
End Sub