Application (error handling) Purpose Returns the application running at the time of the error as a string. Syntax Err.Application Example Sub Main() Dim f as File On Error Goto ErrHandler: f.OpenFile ("NonExistentFile", fcRead) Debug "OpenFile success" Exit Sub ErrHandler: Debug "Application:" & Err.Application If Err.Number = 104 Then   Debug "OpenFile failed" Else   Err.Raise End If End Sub