I think you should use RobotMaterialData object.
Aply like this:
Dim myMaterial As RobotMaterialData
Set myMaterial = RobApp.Project.Structure.Labels.Get(I_LT_MATERIAL, 'yourbar'.GetLabel(I_LT_MATERIAL).Name).Data
'your yield Strengh in N' = myMaterial.RE
Regards