Friend Structure SBinary
        Dim cb As ULong
        Dim lpb As Byte()
    End Structure
 
    Friend Structure SBinaryArray
        Dim cValues As ULong
        Dim lpbin As SBinary()
    End Structure
 
    Friend Structure SPropValue
        Dim ulPropTag As ULong
        Dim dwAlignPad As ULong
        Dim Value As SBinaryArray
    End Structure
 
    Dim lpbc As Byte()
 
    Sub Main()
 
        lpbc = {1, 2, 3, 4}
 
        Dim sBin As SBinary = New SBinary
        sBin.cb = lpbc.Length
        sBin.lpb = lpbc
 
        Dim MVbin As SBinaryArray = New SBinaryArray
        MVbin.cValues = 1
        MVbin.lpbin(0) = sBin '<<-- Hier kommt der Fehler
 
        Dim SecProp As SPropValue = New SPropValue
        SecProp.ulPropTag = 1
        SecProp.Value = MVbin
 
    End Sub