Example

This uses the middle digit of the settings file extension to identify which Reflection product is running the macro.

Sub WhichReflectionProduct ()

 Dim appName As String

 

 'Get the settings file extension for this product

 appName = Session.SettingsExtension

 

 'Extract the middle digit to identify the product

 appName = Mid$(appName,2,1)

 

 'Associate the returned value with a product name

 Select Case appName

  Case "1"

   MsgBox "You are running Reflection for HP"

  Case "2"

   MsgBox "You are running Reflection for UNIX and OpenVMS"

  Case "4"

   MsgBox "You are running Reflection for ReGIS Graphics"

 End Select

End Sub