EmbeddedObjects property can give a variant or type mismatch error when you try and cycle through them. Here is how to avoid errors.

Tips: Always grab the richtextitem as a variant. The Isarray is the trick to avoid embeddedobjects errors.

Dim Addinfo As variant
Set Addinfo = doc.getfirstitem("rAdditionalInfo")

If Addinfo Is Nothing Then
Print "Cannot find rich text item rAdditonalInfo."
 End
End If

If Isarray ( Addinfo.EmbeddedObjects) Then
   Forall o In Addinfo.EmbeddedObjects
    If Not (o Is Nothing) Then
     If ( o.Type = EMBED_ATTACHMENT ) Then
       'blah
     End If 'attachment
    End If ' not nothing
   End Forall

End If ' there are embedded objects

And that's it!