Die Funktion liest den Wert zu einem durch sName bestimten Property aus. Als Unterstützung zum debuggen kann man sich auch einen Wert übergeben lassen wenn der Eintrag nicht vorhanden ist.

Function getProperty( arProps, sName As String, Optional debug as Boolean )

   For i = LBound( arProps ) To uBound( arProps )

      checkProp = arProps(i)

      If checkProp.Name = sName Then

         getProperty() = checkProp.value

         Exit Function

      EndIf

   Next

   getProperty()=""

   if debug then getProperty()="Die Propertie mit dem Namen: "+sName+" ist nicht vorhanden"

End Function