Augmenting Error$

Augmenting Error$

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


Share the Post: