There are different options for the attachments. Have you tried something like this? Note the AddCoincident1 which allows for several mdsAdd options which the AddCoincident does not.
Set att = ActiveModelReference.Attachments.AddCoincident1(MapRefName, "Project MAP", _
"map", "True Scale World", msdAddAttachmentFlagCoincidentWorld)