AppendStringParm
From scripting
Sub AppendStringParm(CurObj As Variant, ParmName As String, ParmValue As String, CurPart As Part) Dim CFParms As Parameters Set CFParms = CurPart.Parameters.SubList(CurObj, True) Dim CFStrParm As Parameter Set CFStrParm = CFParms.CreateString(ParmName, ParmValue) End Sub