Is this what you are looking for?
Everyone: I'm a beginner with VBA so dont hesitate to point out out crap in my code
Public Sub SheetSize()
On Error Resume Next
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oProp As Property
Dim oPropSet As PropertySet
Dim oPropname As String
oPropname = "Sheetformat"
Dim oSheetSize As String
Dim oEnumValue As Integer
oEnumValue = oDrawDoc.Sheets(1).Size
Select Case oEnumValue
Case 9993
oSheetSize = "A0"
Case 9994
oSheetSize = "A1"
Case 9995
oSheetSize = "A2"
Case 9996
oSheetSize = "A3"
Case 9997
oSheetSize = "A4"
Case 9987
oSheetSize = "A"
Case 9988
oSheetSize = "B"
Case 9989
oSheetSize = "C"
Case 9986
oSheetSize = "Custom"
Case 9990
oSheetSize = "D"
Case 9991
oSheetSize = "E"
Case 9992
oSheetSize = "F"
End Select
Set oPropSet = oDrawDoc.PropertySets("Inventor User Defined Properties")
Set oProp = oPropSet.Item(oPropname)
If Err.Number = 0 Then
oProp.Value = oSheetSize
Else
Call oPropSet.Add(oSheetSize, oPropname)
End If
Set oDrawDoc = Nothing
Set oPropSet = Nothing
Set oProp = Nothing
End Sub
