Function CourseCR(code)
    Dim R As Integer
    R = 3
    
    If code Like "CUL1108*" Or code Like "CUL1116*" Or code Like "CUL1126*" Or code Like "CUL1146*" Or code Like "CUL1201*" Or code Like "CUL1204*" Or code Like "CUL1260*" Or code Like "CUL2301*" Or code Like "CUL2304*" Then
         R = 6
    End If
    
    If code Like "HU*" Or code Like "MS*" Or code Like "SB*" Then
        R = 4
    End If
       
    If code Like "CM4405*" Or code Like "PS1010*" Then
        R = 4
    End If
    
    If code Like "ART*" Or code Like "BIO*" Or code Like "COM*" Or code Like "ECO*" Or code Like "ENG*" Or code Like "HIS*" Or code Like "MTH*" Or code Like "PHI*" Or code Like "PSY*" Or code Like "SOC*" Then
        R = 4
    End If
        
    If code Like "HU090*" Or code Like "MS090*" Or code Like "ENG095*" Then
        R = 3
    End If
    
    If code Like "EM4414*" Or code Like "FD3337*" Or code Like "FM3337*" Or code Like "FS497*" Or code Like "GA1121*" Or code Like "GD4413*" Or code Like "ID4415*" Or code Like "IT4413*" Or code Like "MA4411*" Or code Like "MM4403*" Or code Like "PH4204*" Or code Like "SD4333*" Or code Like "VG1102*" Then
        R = 2
    End If
    
    If code Like "FRM331*" Then
        R = 2
    End If
    
    If code Like "CS001*" Or code Like "MS111L*" Or code Like "MSLAB100*" Or code Like "MS114L*" Or code Like "RS*" Then
        R = 0
    End If
  
    CourseCR = R
    
End Function