Проблема с получение значение свойства по переменной.

Есть вот такой код на ВБС

Function GetPropertyValue(oObject,sPropName)
if oObject.WaitProperty(sPropName,"*",1) then 
GetPropertyValue = oObject.sPropName
end if 
end Function

GetPropertyValue = oObject.sPropName

На это строчке всегда експшин... ТК не резолвит переменную. Не подскажите как выйти из этой ситуации? Я пока не нашел=(

Есть вот такой код на ВБС

Function GetPropertyValue(oObject,sPropName)
if oObject.WaitProperty(sPropName,"*",1) then 
GetPropertyValue = oObject.sPropName
end if 
end Function

GetPropertyValue = oObject.sPropName

На это строчке всегда експшин... ТК не резолвит переменную. Не подскажите как выйти из этой ситуации? Я пока не нашел=(

Приведите пример вызова.

Есть вот такой код на ВБС

Function GetPropertyValue(oObject,sPropName)
if oObject.WaitProperty(sPropName,"*",1) then 
GetPropertyValue = oObject.sPropName
end if 
end Function

GetPropertyValue = oObject.sPropName

На это строчке всегда експшин... ТК не резолвит переменную. Не подскажите как выйти из этой ситуации? Я пока не нашел=(

Приведите пример вызова.

set  cmbAccounts =  Aliases.Sys.OUTLOOK.inspContact.AfxWnd1.AfxWnd2.objectForm.Window("ComboBox", "", 4)  
Log.Message GetPropertyValue(cmbAccounts,"wItemList") 
ну или просто
call GetPropertyValue(cmbAccounts,"wItemList")

Вот такая ошибка в логе при запуске Unable to find the object sPropName, не резолвит переменную а сразу ищет свойство с таким именем... и к удивлению не находит :)

Спасибо

GetPropertyValue = aqObject.GetPropertyValue(oObject, sPropName)

или как-то так:

GetPropertyValue = Eval(oObject.FullName & "." & sPropName)

GetPropertyValue = aqObject.GetPropertyValue(oObject, sPropName)

или как-то так:

GetPropertyValue = Eval(oObject.FullName & "." & sPropName)

Спасибо! Возмем на вооружение и будем теперь всегда конвертить в нужные типы данных а не пологатся что интерпретатор сам разберется.