Как определить что свойство доступно только для чтения? - VB

Формулировка задачи:

При проходе по свойствам объекта (CallByName) в цикле надо учитывать то, что некоторые могут быть ReadOnly.
Как определить что свойство доступно только для чтения?

Решение задачи: «Как определить что свойство доступно только для чтения?»

textual
                            Листинг программы 
                        

                            <font color="blue">on</font> <font color="blue">error</font> <font color="blue">resume</font> <font color="blue">next</font>
<font color="blue">for</font> <font color="blue">each</font> myProp <font color="blue">in</font> Col.<font color="blue">Property</font>
    myProp.Value = myProp.Value
    <font color="blue">If</font> err.num <> <font color="darkblue"><b>0</b></font> <font color="blue">then</font>
        Debug.<font color="blue">Print</font> myProp.<font color="blue">name</font> & <font color="teal">" r/o"</font>
    <font color="blue">else</font>
        Debug.<font color="blue">Print</font> myProp.<font color="blue">name</font> & <font color="teal">" r/w"</font>
    <font color="blue">end</font> <font color="blue">if</font>
    Err.Clear
<font color="blue">next</font>
<font color="blue">on</font> <font color="blue">error</font> <font color="blue">goto</font> <font color="darkblue"><b>0</b></font>
                        