Function PROG(Program As String) As String
    
    Dim P As String
    

    If Trim(Program) = "Business Administration" Then
         P = "BA"

    ElseIf Trim(Program) = "Business Leadership" Then
         P = "BL"
    
    ElseIf Trim(Program) = "Business Management" Then
         P = "BM"

    ElseIf Trim(Program) = "Digital Marketing" Then
         P = "DM"

    ElseIf Trim(Program) = "Health Administration" Then
         P = "HA"

    ElseIf Trim(Program) = "Health Information Technology" Then
         P = "HIT"

    ElseIf Trim(Program) = "Healthcare Management" Then
         P = "HM"

    ElseIf Trim(Program) = "Massage Therapy" Then
         P = "MT"

    ElseIf Trim(Program) = "Masters in Business Administration" Then
         P = "MBA"

    ElseIf Trim(Program) = "Paralegal Studies" Then
         P = "PS"

    ElseIf Trim(Program) = "Sports & Rehabilitation Therapy" Then
         P = "SRT"

    End If
    
    PROG = P


End Function