For Each MimePart (gb.mime)

Dim hMimePart As MimePart
Dim hMimePart2 As MimePart
For Each hMimePart2 In hMimePart
...
Next

Loops through the child structures.