One way of doing this is shown below: Imports Inventor.UnitsTypeEnum If ThisDoc.Document.DocumentType = kPartDocumentObject Then Try oChecker = ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.Item("TWL") MultiValue.SetList("TWL", 12, 75, 900) TWL=12 Catch ' oTWL=ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByValue("oTWL", 1, kcentimeterLengthUnits) oTWL=ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByValue("TWL", 1/10, kmillimeterLengthUnits) MultiValue.SetList("TWL", 22, 75, 900) TWL=12 End Try End If i = 0 For Each valueTWL In MultiValue.List("TWL") i = i+1 If i = 1 Then Thickness = valueTWL If i = 2 Then Width = valueTWL If i = 3 Then Length = valueTWL Next MessageBox.Show("Thickness: " & Thickness & vbCrLf & "Width: " & Width & vbCrLf & "Length: " & Length, "TWL") iProperties.Value("Project", "Description")= "PL." & " " & Thickness & " X " & Width & " X " & Length MessageBox.Show("DESCRIPTION: " & iProperties.Value("Project", "Description"), "Title") This is one of the methods. Many could have better solutions. I request post, if so. Thanks.