Lo puedes hacer fácilmente. Por un lado tienes un array (o lo que sea) de los materiales. Entonces en un objeto nuevo aparte de otra información tienes que agregar el ID de los materiales que contiene y su cantidad. Si lo quieres hacer simple, hasta un string te vale:
"10ID_PLASTICO;2ID_CAUCHO;500ID_GOMA;"
o si tus ID son números o alfanumérico(como es evidente):
"10 01223341AB 11 012HJ6128 500 ASDFFA"
O un array de estructuras (ID + Cantidad).
Te dejo aquí como podrías estructurar tu programa
Código:
Type Composicion_Elemento
Dim ID_Material As Integer
Dim Cantidad As Integer
End Type
Type Objeto
Dim ID As Integer
Dim Nombre As String
(........)
Dim Composicion[] As Composicion_Elemento
(........)
End Type
Por tanto cada vez que crees un objeto debes añadir tantos materiales y su respectiva cantidad como quieras.