'Call subroutines
Call Tuition(curTuition, intCredHrs, strStat)

'Display subroutines
Range("f" & intRow) = curTuition

If strStat = "GRADUATE" Then
    If intCredHrs < 18 Then
        curTuition = 335 * intCredHrs
    Else
        curTuition = 6500
End If

ElseIf strStat = "UNDERGRADUATE" Then
    curTuition = 550 * intCredHrs
End If