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