Forum Post: Re: Is it possible to query which Real DWG is loaded during a session?

FYI

I put together this quick VBA to use this information:

Sub checkRealDWGVersion()

   Dim RealDWGVersion As String

   Dim msgCenterResponseArray As Variant

   CadInputQueue.SendCommand ("Version")

   msgCenterResponseArray = Split(MicroStationDGN.MessageCenter.GetMessage(0).Message, ",", 2)

   RealDWGVersion = msgCenterResponseArray(1)

   MsgBox "MicroStation is " & RealDWGVersion, vbInformation + vbOKOnly, "RealDWG Version"

End Sub

I have bigger plans, but this is the start.