AppName

This property contains the name of the current application when the error occurred.  

Group:   System Error

Syntax:  sName = SysErr.AppName

sName        (String) the name of the faulting application as shown in the error log

Example:

Dim sName As String

sName = SysErr.AppName