22-01-20 11:32 AM
23-01-20 10:23 AM
23-01-20 08:05 PM
14-08-20 08:10 PM
14-08-20 10:51 PM
17-08-20 08:50 PM
On Error Resume Next ' Defer error handling.
Err.Clear
Err.Raise(448) ' Custom Error Exception; ex: 6 = Overflow, 448 = name not found
' Check for error, then show message.
If Err.Number <> 0 Then
ErrorMsg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & ". Description: " & Err.Description
End If
25-08-20 03:52 PM
05-10-21 03:00 PM
05-10-21 03:17 PM
05-10-21 06:17 PM