Update ComputeQualityGrade.vba

General optimization