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