VBA - すべてのエラーをキャッチし、説明を返します。出来ますか？

Question

質問は次のとおりです。コード内に複数の行にエラーがある可能性はありますか？を使用し、最後にすべてのエラーの説明を返します。このようなもの：

Public Sub CatchErrors() 

    On Error Resume Next 

    Err.Raise 1009, Description:="Custom Error 01" 
    Err.Raise 1010, Description:="Custom Error 02" 
    Err.Raise 1011, Description:="Custom Error 03" 

    Debug.Print Err.Description 

    On Error GoTo 0 

End Sub 

最後のものだけでなく、すべての説明が必要です。どのようにそれを行うにはどのようなアイデア？

Answer 1

多分これは何か？

Option Explicit 

Public Sub CatchErrors() 
    Dim errStrng As String 

    On Error GoTo ErrHandler 

    Err.Raise 1009, Description:="Custom Error 01" 
    Err.Raise 1010, Description:="Custom Error 02" 
    Err.Raise 1011, Description:="Custom Error 03" 

    On Error GoTo 0 

    Debug.Print errStrng 
    Exit Sub 

ErrHandler: 
    errStrng = errStrng & Err.Description & vbCrLf 
    Resume Next 
End Sub