Public Property InterModelID() As Variant 

Sub Main

Dim MyDiagram As Diagram 
Dim m As Model 
Dim e As Entities 
Dim ent As Entity 
Dim atr As AttributeObj

Set MyDiagram = DiagramManager.ActiveDiagram 
Set m = MyDiagram.ActiveModel 
Set e = m.Entities

For Each ent In e 
For Each atr In ent.Attributes 
atr.LogicalRoleName = ent.EntityName + "_" + atr.AttributeName + "_Role" 
Next atr 
Next ent

For Each ent In e 
For Each atr In ent.Attributes 

If atr.HasLogicalRoleName then 
MsgBox("ENT: " + ent.EntityName + vbCrLf + _ 
"ATTR: " + atr.AttributeName + vbCrLf + _ 
"LogicalRoleName: " + atr.LogicalRoleName) 
End If 

Next atr 
Next ent 

End Sub