For Each MediaMessage (gb.media)

Dim hMediaMessage As MediaMessage
Dim aVariant As Variant
For Each aVariant In hMediaMessage
  ...
Next