エラー処理

Public Sub aaa()

On Error GoTo ErrorHandler

    Dim strProcedureName As String
    Dim strProcessName As String

Exit Sub

ErrorHandler:
    Dim objFileSystemObject As New FileSystemObject
    Dim objFileStream As TextStream

    Set objFileStream = objFileSystemObject.OpenTextFile("xxx.log", ForAppending, True)

    objFileStream.WriteLine Format(Now, "yyyy/mm/dd hh:nn:ss") & vbTab & "Number: " & Err.Number & " " & "Description: " & Err.Description
    objFileStream.WriteLine Format(Now, "yyyy/mm/dd hh:nn:ss") & vbTab & "Source: " & Err.Source & " " & "ProcedureName: " & strProcedureName & " " & "ProcessName: " & strProcessName

End Sub