VB Custom Property from a drawing

I currently have a macro that used to extract the custom property data from a model and add it to the filename.

I now need it to extract the revision only from the drawing sheet instead of the model but I cant get it to work correctly.

The macro works by having a drawing open, it will open the model in the 1st drawing view and create a step file.

After this it will create a PDF of the drawing and place it in a set location.

During its actions, it will extract the following property's from the model to create the filename: Part No, Description & Revision.

No property's are taken from the drawing. This is what I need to change. I need the model to give the Part No & Description and the drawing to give the Revision.