Version property example

Sub Version_Example()
' This example returns application version as a string
    Dim sVersion As String
    sVersion = ThisDrawing.Application.version
    MsgBox "The version is: " & sVersion
End Sub