Slow Load Time

Hello all,
I have a continuous form that is slow on loading a portion of the code. The form is designed to pull students who need to be either warned or terminated based off of their GPA. Below is the code that is delayed in being displayed on the form:

Public Function warnOrTerminate(creditAttempt As Integer, GPA As Double)
' these numbers are from the "satisfactory progress" portion of the catalog

'warning if the following is true
'GPA<1.5 and ([cAttempt]<=15)
'GPA<1.9 and ([cAttempt]>=16 and [cAttempt]<=30)
'GPA<2.2 and ([cAttempt]>=31 and [cAttempt]<=45)
'GPA<=2.4 and ([cAttempt]>=46)

'terminate if the following is true
'GPA<1 and ([cAttempt]<=15)
'GPA<1.5 and ([cAttempt]>=16 and [cAttempt]<=30)
'GPA<1.75 and ([cAttempt]>=31 and [cAttempt]<=45)
'GPA<=2 and ([cAttempt]>=46)

Select Case creditAttempt
Case Is <= 15
If GPA < 1 Then
warnOrTerminate = "Terminate (1.0)"
ElseIf GPA < 1.5 Then
warnOrTerminate = "Warning (1.5)"
End If

Case 16 To 30
If GPA < 1.5 Then
warnOrTerminate = "Terminate (1.5)"
ElseIf GPA < 1.9 Then
warnOrTerminate = "Warning (1.9)"
End If

Case 31 To 45
If GPA < 1.75 Then
warnOrTerminate = "Terminate (1.75)"
ElseIf GPA < 2.2 Then
warnOrTerminate = "Warning (2.2)"
End If

Case Is >= 46
If GPA < 2 Then
warnOrTerminate = "Terminate (2.0)"
ElseIf GPA < 2.4 Then
warnOrTerminate = "Warning (2.4)"
End If

End Select

Everything works fine - but the field that shows the end user to either warn or terminate the student shows up very delayed. Any thoughts or ideas on speeding this up??