In many places, I include Error$ as picked up in an error trap in a descriptive message. I use a function to expand its meaning. I call the function TSS for Time Stamped String to keep it short. It works something like this:
MsgBox TSS(Error$) & " in Mytest"Public Function TSS (ByVal aString As String) If Len(aString) Then TSS = aString & " at " & CStr(Now) Else TSS = "Error$ is Blank at " & CStr(Now) End IfEnd Function