Purpose Returns the severity of the error as an integer. Values can be fcError, fcWarning, and fcMessage. Syntax Err.Severity Example Sub Main() Dim f as File On Error Goto ErrHandler: f.OpenFile ("NonExistentFile", fcRead) Debug "OpenFile success" Exit Sub ErrHandler: Debug "Severity:" & Err.Severity If Err.Number = 104 Then   Debug "OpenFile failed" Else   Err.Raise End If End Sub