create a new propertyset

[Anonymous]

When I execute the following
Set oNewPropertySet = oPropsets.Item("PartPropertySet")
'If PropertySet does not exist then add the new PropertySet
If Error Then
MsgBox "in Error"
'Add the new PropertySet
Set oNewPropertySet = oPropsets.Add("PartPropertySet")
MsgBox "in if after addPropertySet"
'Add the new Property to the new propertySet
Call oNewPropertySet.Add("P1", "Eriez Part Number", 2)
Call oNewPropertySet.Add("P2", "Drawing Number", 3)
Call oNewPropertySet.Add("P3", "Description of Part", 4)
Call oNewPropertySet.Add("P4", "Material", 5)
MsgBox "in if after addproperty"
End If

If the propertyset is not present I abort on the
Set oNewPropertySet = oPropsets.Item("PartPropertySet")
It does not look for error and do error logic

Any Ideas