I agree with ItsMe - it would be better to use "Select Case".
Something like this:
Code:
Function GradePointsCalculation(strGrade As String)
Select Case strGrade
Case "A+", "A"
GradePointsCalculation = [credit hours] * 4
Case "A-"
GradePointsCalculation = [credit hours] * 3.67
Case "B+"
GradePointsCalculation = [credit hours] * 3.33
Case "B"
GradePointsCalculation = [credit hours] * 3
Case "B-"
GradePointsCalculation = [credit hours] * 2.67
Case "C+"
GradePointsCalculation = [credit hours] * 2.33
Case "C"
GradePointsCalculation = [credit hours] * 2
Case "C-"
GradePointsCalculation = [credit hours] * 1.67
Case "D", "F"
GradePointsCalculation = [credit hours] * 1
Case Else
GradePointsCalculation = ""
End Select
End Function
I would also consider passing the credit hours as an argument:
Code:
Function GradePointsCalculation(strGrade As String, dblHrs As Double)
then change "[credit hours]" to "dblHrs".
BTW, you shouldn't use spaces in object names.