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