If the issue is that the subject is too long, shorten it to a length that doesn't cause the error e.g. as follows

Left(aItem.Subject, 10)