Reading the revision from the model iproperties using vba

[giel]

I want to read the revision of a model using vba script, but do not seem to get it,

what is wrong with the following code:

Dim oProps As PropertySet
Set oProps = oDoc.PropertySets.Item("Design Tracking Properties")
Dim partNumber As String
Dim partRevision As String

On Error Resume Next
partNumber = oProps.Item("Part Number").Value
partRevision = oProps.Item("Revision Number").Value
On Error GoTo 0

If partNumber = "" Then partNumber = oDoc.DisplayName
If partRevision = "" Then partRevision = "0"

Giel

[andrewiv · Accepted solution]

Revision number is actually part of the summary information property set.  Try this code

Dim oProps As PropertySet
Set oProps = oDoc.PropertySets.Item("Design Tracking Properties")
Dim oSumProps As PropertySet
Set oSumProps = oDoc.PropertySets.Item("Summary Information")
Dim partNumber As String
Dim partRevision As String

On Error Resume Next
partNumber = oProps.Item("Part Number").Value
partRevision = oSumProps.Item("Revision Number").Value
On Error GoTo 0

If partNumber = "" Then partNumber = oDoc.DisplayName
If partRevision = "" Then partRevision = "0"

[giel]

Yes now it works. Thank you