… = MimePart[…] (gb.mime)

Dim hMimePart As MimePart
Dim hMimePart2 As MimePart
hMimePart2 = hMimePart [ Index As Integer ]

Returns the Index substructure.