CimEMEvent.EventID (property, read)

Syntax Event.EventID
Description String. Returns the EventID that triggered the event.
Example 
Sub Main()
   Dim event as CimEMEvent
   Set event = CimGetEMEvent()
   PointSet "LAST_EVENT_ID", event.EventId
End Sub