Dim objSubscribedCoverage As clsSubscribedCoverage
Dim CostofHire As Decimal
objSubscribedCoverage = GetPolicyLevelCoverage("CHA") 'The coverage name is Hired Autos Liability
CostofHire = clsDynamicMethodOrPropertyCall.Manager.ValueForAPropertyName(objSubscribedCoverage.MySubscribedServiceSpecificData, "HiredAutoCostofHire", Nothing, True)