>>67

Function CheckRunMode() As Boolean
'VB環境下ならFalse、EXEならTrue
On Error GoTo ErPos

'0除算エラーを起こす
Debug.Print 1 / 0

'EXEなら上のコードでエラーが起きない
'（Debug.PrintがEXEでは削られている為）
CheckRunMode = True
Exit Function

ErPos:
CheckRunMode = False
End Function

こんなのは如何？
邪道っぽいけど。