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