diff --git a/solidworks-api/document/assembly/compose-flat-bom/Macro.vba b/solidworks-api/document/assembly/compose-flat-bom/Macro.vba
index fe436552..1af7ed79 100644
--- a/solidworks-api/document/assembly/compose-flat-bom/Macro.vba
+++ b/solidworks-api/document/assembly/compose-flat-bom/Macro.vba
@@ -131,12 +131,12 @@ Function GetPropertyValue(model As SldWorks.ModelDoc2, conf As String, prpName A
     Dim prpVal As String
     Dim prpResVal As String
     
-    confSpecPrpMgr.Get3 prpName, False, "", prpVal
+    confSpecPrpMgr.Get3 prpName, False, prpVal, prpResVal
     
-    If prpVal = "" Then
+    If prpResVal = "" Then
         genPrpMgr.Get3 prpName, False, prpVal, prpResVal
     End If
     
     GetPropertyValue = prpResVal
     
-End Function
\ No newline at end of file
+End Function