Is there a better way to code this?
Code:strLog = strLog & "Date/Time: " & Format$(Now, "hh:mm:ss d-mmm-yyyy") & vbCrLf strLog = strLog & "App: " & MainApp.Title & vbCrLf strLog = strLog & "Version: " & MainApp.Major & "." & Format$(MainApp.Minor, "00") & "." & Format$(MainApp.Revision, "000") & vbCrLf strLog = strLog & "Error Number: " & lngNumber & vbCrLf strLog = strLog & "Error Desc: " & strDescription & vbCrLf




Reply With Quote