Getting version numbers of CIV3D not reading the registry

[Sea-Haven]

I am trying to answer a post on another forum using Bricscad with a CIV3D dwg and getting Cogo point information. yes you can get cogo points but to do anything with the point need to open the CIV3D database, yes have the code to change point property running under CIV3D.

I am aware can read the registry and get the value of the version used. But opening in Bricscad there is no registry entry so back to older method.

(cond (*AeccDoc*)
          ((setq *AeccDoc*
            (vlax-get
              (cond (*AeccApp*)
                ((setq *AeccApp*
                  (vla-getinterfaceobject
                     (cond (*Acad*)
                     ((setq *Acad* (vlax-get-acad-object)))
                     )
                     (strcat "AeccXUiLand.AeccApplication." appstr)
                  )
                 )
                )
              )
              'ActiveDocument
            )
           )
          )
        ) ; end main cond

I have appstr 2009 to 2020 but need to test with 21 22 23 24 25 can anyone help ? Pretty sure the number is displayed  in "About"

........... ; 2009
((vl-string-search "R23.0" vrsn)(setq appstr "13.0"));;2019
((vl-string-search "R23.1" vrsn)(setq appstr "13.2"));;2020