How to get property set of a Wall

Hi everybody !

I created a specific property for walls and I want to get the value in, is someone could help me, I appreciated very very much ?

Please check the printscreen attached...

Thanks in advance !

Is it possible or no ???

If you want to find an answer go to Augi Forum Website

The code below, provided by jwanstaett, works great !

Dim varAcadDwg As Variant
Dim wallCollection As New Collection
Dim acadObj As AcadObject
Dim Mypro As AecScheduleProperty
Dim strTest As String
Set varAcadDwg = ThisDrawing.ModelSpace
For Each acadObj In varAcadDwg
       If acadObj.ObjectName = "AecDbWall" Then
             
              Set Mypro = GetPro("DemtecMurs_O", "CadSubtype", acadObj)
                strTest = Mypro.Value
              MsgBox strTest
       End If
Next