VBA Object alle C-Skripte finden

Hallo,

ich möchte gerne von einem Objekt ermitteln ob es es ein C-Skript auf einem Event hat. Leider scheitere ich an dem Zusammenhang von obgEvent und objActionDynamic. Ich feue mich auf Tipps...

es geht um den Bereich zwischen den '----- das andere funktioniert...

Hallo 
ich habe einen kleinen Beispiel geschrieben der zeigen soll, wie man vorgehen muss:

Ich habe einen Buttom mit Namen MBTN und einem C-Script am Mausklick:

Sub Test()
Dim objHMI As HMIObject
Dim objEvent As HMIEvent

Set objHMI = ActiveDocument.HMIObjects("MBTN")

For Each objEvent in objHMI.Events
    If objEvent.Actions.Count > 0 Then
        If objEvent.Actions.Item(1).ActionType = hmiActionTypeScript Then
            If objEvent.Actions.Item(1).ScriptType = hmiScriptTypeCScript Then
                MsgBox "C-Script with Source code: \n" & objEvent.Actions.Item(1).SourceCode
            End If
        End If
    End If
Next
End Sub

kleiner Hinweis:
Um die Eigenschaften von der VBA Objecten besser zu finden, kann man den Fenster Lokal im Ansicht menu sichtbarschalten und dann mit CheckPoint arbeiten.

LG
Fess