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