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