How to get error description of all the errors

[zar...@gmail.com]

Hi,

How can I get error description of all the errors that occurred in the script?  The code written below has two errors, however only the description of the last error is available at the end.

Thanks

On Error Resume Next

   Some Code   (this fails)
   Some Code
   Some Code    (this fails)

if Err.Number <> 0 Then
 
       msgbox Err.Description
      msgbox Err.Number
  
      Err.Clear
      On Error GoTo 0

End If