Update ComputeIntermediateGrade.vba

General optimization