For Each MimePart (gb.mime)

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

Loops through the child structures.