Get internal name:

Function Internal_Name(MyObjekt As Object) As String
  On Error Resume Next
  Dim MyElement As ModelElement
  Set MyElement = MyObjekt.GetItem("ModelElement")
  Internal_Name = MyElement.InternalName
  If Err.Number <> 0 Then
      Internal_Name = vbNullString
  End If
End Function