I think the field width is based on the current width of the column. Try before Save

oSheet.Range("A:Z").EntireColumn.AutoFit()

>Bellow is the whole code of the function. Unfortunatelly, it still truncates long denial reason to 48 chars. How did it internally determine what width to apply to the field?
>
<snip>