Save error handling message to text file?

I want to catch any type of error and save it as a text file to view later. Here's my error handling:

public sub MYCODE()
    On Error GoTo DOTHIS
    ............
    ............
    ............

    DOTHIS:
         ==>> Need to save error code and description to a text file base on workbook file name.

end sub